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INTRODUZIONE 


Questo libro è rivolto a tutte quelle persone che pur avendo già una conoscenza 
elementare del linguaggio BASIC desiderano però provare a scrivere alcuni sempli- 
ci programmi con difficoltà crescente. 

Il libro è diviso in due parti. Nella prima sono riportati gli enunciati dei problemi 
mentre nella seconda sono presentati i programmi risolutivi. 

La prima parte è divisa a sua volta in sei capitoli ognuno dei quali rivolto ad un 
particolare argomento. 

Gli enunciati sono in genere seguiti dall'analisi dettagliata del problema e 
qualche volta anche dal programma, quando esso rappresenti una nozione nuova e 
importante. 

Per meglio utilizzare questo libro, vi consigliamo di provare a risolvere ogni 
problema voi stessi prima di leggere l’analisi che noi abbiamo proposto. 

I programmi, che abbiamo riportato nella seconda parte, non sono ovviamente 
l’unica soluzione possibile, e proprio per questo motivo raccomandiamo al lettore 
di confrontarli, criticamente, con le proprie soluzioni. 


PRESENTAZIONE DEGLI ESERCIZI 


Gli enunciati dei problemi sono in genere formati da tre parti: 


- Problema: enunciazione dell'obiettivo del programma; 

- Ingresso: descrizione dei dati che dovranno essere dati in ingresso dall'utente 
del programma (per esempio dei nominativi battuti alla tastiera); 

- Uscita: indicazione dei dati che dovranno essere visualizzati sullo schermo 
del calcolatore. 


L'analisi comprende una descrizione del programma e un diagramma a blocchi. 

Le soluzioni riportate nella seconda parte comprendono: il listato del programma, 
l'elenco delle variabili utilizzate e una spiegazione delle linee più importanti del 
programma. 
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CAPITOLO 1 


VISUALIZZAZIONI, CALCOLI SEMPLICI, 
GENERAZIONE DI NUMERI ALEATORI 


ESEMPIO 1.1 


Problema: visualizzazione delle iniziali e della lunghezza del cognome di una 


persona. 
Ingresso: cognome e nome della persona. 
Uscita: le iniziali e la lunghezza del cognome. 


Soluzione: 


43 HOME : VTAE 5 

20 INPUT “COGNOME:  ";C$ 

3@ INPUT "NOME: ":N$ 

41 PRINT : PRINT 

SV HITAB 19 

64 PRINT LEFT$ (N$,1):" ": LEFT$ 
(C$, dI; 

70 PRINT 

SA PRINT "LUNGHEZZA DEL COGNOME : 
"; LEN (C$) 

SA END 


Variabili: 


C$ - cognome 
N$ - nome 


60: visualizzazione delle iniziali, ciascuna seguita da un punto. 
ESERCIZIO 1.2 
Problema: centrare un titolo sullo schermo. 


Ingresso: un titolo (o una frase) con meno di 40 caratteri. 
Uscita: il titolo deve apparire a metà dello schermo (sulla linea 10). 


ESERCIZIO 1.3 
Ingresso: cognome e anno di nascita di una persona. 
Uscita: visualizzare 1 testi: 


BUON GIORNO (cognome) 
NON DIRO’ A NESSUNO CHE HAI (età) ANNI 


Analisi: 

Il programma deve: 

1) domandare il cognome, 

2) domandare l’anno di nascita, 

3) visualizzare 1 testi indicati sopra con l’età. 

ESERCIZIO 1.4 

Problema: calcolo della percentuale di un valore numerico n. 
Ingresso: il valore numerico e la percentuale. 


Uscita: il valore maggiorato per la percentuale. 


Analisi: 


percentuale P. 


2. La formula è: 
on= NP 
100 


Ingresso del valore 
nu numerico N e della 


Ingresso 


Calcolo del 
valore 
percentuale 
DN 


Visualiz- 
zazione 
di DN © 
N+DN 


ESERCIZIO 1.5 


Problema: calcolo approssimativo della spesa annua a partire dal valore medio 
giornaliero e tenendo conto dell’inflazione. 


Ingresso: valore della spesa media giornaliera. 
Uscita: spesa annuale (usare le istruzioni HOME, VTAB, ecc. per rendere 
chiara la visualizzazione sullo schermo). 


Analisi: 
ingresso del nome e 
della spesa giornaliera. 
aaa Per tenere conto 
a spesa dell’infiazione si moltiplica 
annuale DA ta spesa annuale per 1.07 
(pari ad una infiazione del 12-13 %). 
ESEMPIO 1.6 


Problema: simulazione del lancio di un dado. 

Uscita: un numero intero aleatorio compreso tra l e 6. 

Analisi: La funzione RND(1) genera un numero aleatorio tra 0 compreso e | 
escluso; moltiplicando per 6 si ottengono valori tra 0 compreso e 6 
escluso; si prende allora la parte intera, dopo aver aggiunto |, per 
ottenere i valori interi tra 1 e 6,estremi inclusi. In BASIC : 
INT(RND(1)*6)t1. 


Soluzione: 


1% HOME : VTIHES 

20 D= RND (1) *aL+1 

ZA D= INT <DI 

4A PRINT D 

39 PRINT 

69 INPUT "UN ALTRO LANCIO DI DAD 
0? «SIZNO>":; R$ 

CA PRINT 

99 IF R$ = "SI" THEN 20 

90 END 


Variabili: 


D - numero intero aleatorio tra l e 6 
A$ - variabile 


20-30: calcolo del valore numerico aleatorio. 


60: richiesta se continuare il lancio del dado (tra parentesi sono riportate le 
due risposte possibili). 
80: se l’utente risponde sì il programma prosegue alla linea 20. 


ESERCIZIO 1.7 


Problema: gioco; l’utilizzatore deve scoprire, con tentativi successivi, un numero 
stabilito da un’altra persona. 

Ingresso: il numero da scoprire (compreso tra 0 e 1000) e i valori tentativi. 

Uscita: dare | messaggi: “TROPPO ALTO”, “TROPPO BASSO”, “BRAVO 
INDOVINATO”. 


Analisi: 
Dopo ogni tentativo il calcolatore deve controllare se il numero fornito è 


superiore o inferiore a quello da indovinare e poi visualizza il messaggio corrispon- 
dente; diversamente annuncia che il numero è stato indovinato. 


indovinare 


di un valore 
prova E 


Visua- 
lizzare 
“Bravo” 


ESERCIZIO 1.8 


Ingresso: numero di dadi gettati assieme (da | a 6). 
Uscita: la somma dei dadi gettati. 


ESERCIZIO 1.9 


Problema: come la versione 1.7, ma migliorata perchè è la macchina che stabilisce, 
a caso, il numero da indovinare e conta in quante volte l'operazione ha 


Successo. 
Ingresso: i valori numerici tentativi. 
Uscita: gli stessi messaggi della versione 1.7 con in più il numero di tentativi. 


Analisi: 


La variabile C memorizza il numero di tentativi e per questo motivo viene 
azzerata all’inizio del programma; C viene quindi “incrementata” di 1 ad ogni 
tentativo.(La variabile C viene chiamata ‘‘contatore’’). 


Scelta a caso del 


‘uit numero N da indovinare. 
Inizializ:z L___-___-__-____ u_u Azzeramento del contatore C. 
zazione 


Ingresso di 
un valore 
prova E 


Visualizzare: 
“Bravo hai indovinato 
in C prove" 


CAPITOLO 2 


RICERCHE IN TABELLE, CALCOLI, 
ARCHIVIAZIONI, INSERIMENTI 


ESEMPIO 2.1 


Problema: 


Ingresso: 
Uscita: 


Analisi: 


trovare il numero di valori positivi o nulli contenuti in una lista di dieci 
elementi. 

dieci valori numerici. 

il numero di valori positivi o nulli. 


- 0  —-, a 2 2 Ingresso dei 10 
valori della tabella. 
eo Controllo se il valore 
è positivo 0 nullo. 


Controllo se è 
l'uitimo valore. 


Test 


incremento 
di P 


E necessario usare un contatore (la variabile P) che sarà incrementato di | per 
ogni valore positivo o nullo. 


I dati da analizzare vengono inizialmente caricati in una tabella. 


Soluzione: 


10 DIM Vel® 

28 HOME : VTRES 

29 : 

39 REM SCELTA DEI VALORI 
49 FORI = 1 TO 10 

50 PRINT "VALORE “;1I: 

50 IMPUT ":":V1) 

#0 NEXT] 


SA REM VALORI POSITIVI 0 NULLI? 


dA Po: A 

408 FORI =1 TO 10 

4109 IF VID > = 9 THNP=Pt+ 
i 

1209 NEXTI 

125 : 


138 REM VISUALIZZAZIONE 

140 PRINT : PRINT 

158 PRINT “NUMERO DI VALORI POSI 
TIVI: ";P 

1698 END 


Variabili: 


I - contatore 
P - contatore dei valori positivi o nulli 


10: dimensionamento della tabella. 
90: inizializzazione del contatore P. 


ESERCIZIO 2.2 


Problema: calcolo di un prezzo lordo a partire da quello al netto dell’IVA. 

Ingresso: prezzo netto e codice del valore IVA (A per IVA del 7%,B per IVA del 
17.6%, C per IVA del 33%). 

Uscita: il prezzo lordo approssimato a due cifre decimali. 


Analisi: 


La percentuale IVA viene associata ad una variabile numerica mediante la quale si 
calcola poi il prezzo lordo. Se viene fornito un codice IVA errato, il programma 
chiede la ripetizione del codice. 


Ingresso 
del prezzo 
netto 


SO te ms 


Ed 
del Ed 
lordo 


Visualizzazione dei prezzo 
tordo arrotondato a 
-_—1—_  —-_e_ due cifre decimali. 


ESERCIZIO 2.3 


Problema: come il precedente Esercizio 2.2, ma per un gruppo di dieci prezzi alla 


volta. 
Ingresso: dieci prezzi netti e il codice IVA. 
Uscita: i dieci prezzi lordi approssimati a due cifre decimali e allineati a destra 


sul punto decimale. 
Analisi: 


L'utilizzo di una tabella facilita la registrazione dei dieci prezzi e dei calcoli. Si 
usano per questo scopo i istruzioni FOR-NEXT. 


Ingresso nella tabella 
di 10 prezzi netti. 


Ingresso 


Ingresso 
del codice 
IVA con C$ 


Calcolo dei 10 prezzi 
lordi arrotondati a 
due cifre decimali. 


E dei 10 


prezzi lordi con 
allineamento sul punto 
decimale. 


ESERCIZIO 2.4 


Problema: lettura di una lista di parole registrate nel programma mediante l’istru- 
zione DATA (trovare due metodi diversi per la risoluzione del proble- 


ma). 
Ingresso: la lista di parole nell’istruzione DATA. 
Uscita: la visualizzazione delle parole. 


ESERCIZIO 2.5 


Problema: vedere se un nominativo è presente in una tabella di nomi registrata nel 


programma. 

Ingresso: una lista di cognomi e nomi e il cognome e nome della persona da 
cercare. 

Uscita: un messaggio per dire se il nominativo è contenuto nella tabella. 
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Analisi: 


Si utlizza l'istruzione DATA per costituire la tabella. 
La ricerca si effettua comparando uno per uno i cognomi e i nomi con quello 
voluto. 


—- — — 2 —- — —_ — Lettura dei cognomi e 
dei nomi mediante 
l'istruzione DATA. 


Lettura 
dei dati 


Ingresso del cognome 
— = — — — = —- — - e dei nome da cercare. 


Controllo se esiste 
il nominativo cercato. 


Visualizzare 
“Non è nella 
tabella” 


Visualizzare 
“E nella 
tabella” 


ESERCIZIO 2.6 


Problema: trovare il valore più piccolo e quello più grande in una lista di numeri. 
Ingresso: una lista di numeri. 
Uscita: il valore più grande e quello più piccolo. 


Analisi: 
Il valore maggiore si trova nel modo seguente: 
— mettere il primo elemento della lista nella variabile MG, 
— comparare uno ad uno gli elementi della lista con MG. Se uno è maggiore di MG 


allora è lui che viene posto in MG, diversamente MG non viene cambiato. 


Al termine del confronto di tutti gli elementi, MG contiene il valore maggiore 
della lista. 
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Per trovare invece il valore minore la procedura è la stessa salvo mettere nella 
nuova variabile MP l’elemento inferiore dei confronti. 


I 
Trattamento iL ______ 
dei dati 


Ingresso dei dati 
nella tabella. 


—_a 


Mettere il primo elemento 
della tabella in MA e in MI. 


L'elemento seguente è | _ _ —_ —- | - — -— SI indi 
PTT 
NO 


ll dato 


è messo 


E' maggiore di MA?. in MA 


E' l'ultimo elemento | TOTTI > 
della tabella? 


Visua- 
lizzazione 
di MA e 
di MI 


ESERCIZIO 2.7 


Problema: trovare l’indice della prima persona in ordine alfabetico, in una lista di 


nominativi. 
Ingresso: una lista di cognomi e nomi. 
Uscita: l'indice della prima persona in ordine alfabetico e i corrispondenti 


nome e cognome. 
Analisi: 

Il metodo per effettuare la ricerca è lo stesso dell’esercizio precedente salvo 
conservare l'indice dell'elemento più piccolo, in senso alfabetico. 


E° inoltre necessario fare due gruppi di confronti nel caso si trovino più persone 
con lo stesso cognome. 
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Ingresso fr === === Ingresso dei nominativi 
nella tabella. 


Controllo se l'elemento 

seguente della tabella, 

con indice I, precede in 
nno ordine alfabetico l'elemento 

con indice M. 

(Se il cognome è lo stesso 

controllare allora se è 

il nome che precede). 


Controllo se è 
l'ultimo elemento. 


ESERCIZIO 2.8 

Problema: archiviare per ordine decrescente una lista di numeri forniti al pro- 
gramma con ordine qualunque, utilizzando due tabelle: la prima per 
contenere i numeri da ordinare e la seconda per fare l'ordinamento. 

Ingresso: una lista di numeri. 

Uscita: una lista ordinata in verso decrescente. 


Analisi: 


Proponiamo due metodi diversi: 
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Ingresso dei numeri 
nella prima tabella. 


Ricerca dell'elemento 
maggiore della prima 
Ricerca tabetia. 


Archivia- 


zione 


Inserimento di questo 
elemento nella seconda 
tabella, ai primo posto 
o ai primo posto libero. 
Soatiluzione di tale 
elemento, nella prima 
tabella, con il valore -1. 


Controllo se la seconda 
tabella contiene lo 

stesso numero di ciementi 
della prima. 


Metodo 1 


È necessario scegliere un numero particolare che non possa mai essere presente 
nella lista. 

Nel nostro caso stabillamo che i numeri siano tutti positivi o nulli per cui 
scegliamo -1 come numero speciale che essendo negativo non potrà, quindi, mai 
essere presente. 

II calcolatore ricerca il valore maggiore nella prima tabella e poi lo pone nella 
seconda tabella; nella prima tabella al suo posto scrive -1. Questo ciclo viene 
ripetuto sino a che nella prima tabella siano presenti solo valori -1. Alla fine nella 
seconda tabella saranno presenti tutti i numeri in ordine decrescente. 
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ingresso dei numeri 
nella prima tabella. 


Ricerca dell'elemento 
maggiore della prima 
—- — tabella. 


Inserimento di questo 
ciemento nella seconda 
tabella ai primo posto o 


Controlio se la prima | > = 
tabella non contiene 
più alcun elemento. 


tabetia, e rimonta di 
una posizione di tutti 
gli clementi seguenti. 


Visua- 
lizzazione 
della ll 
tabella 


Metodo 2 


Questo metodo è applicabile in modo più generale qualunque siano i numeri da 
ordinare perchè non richiede la scelta di un valore speciale. 

Appena avete trovato l'elemento più grande della prima tabella, ed averlo 
trasferito nella seconda, esso viene soppresso facendo ‘rimontare’ tutti gli elemen- 
ti successivi di una posizione. La prima tabella viene quindi ad avere, dopo questa 
operazione, un elemento in meno. 

Il procedimento si ripete sino a che non vi sono più elementi nella prima tabella. 
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Esempio : 


121 | ! | 1000 N2 121) ” 
elemento 
siga] ico J@ TI ad: 
4 O dopo lo spostamento | 0 | 4 
0 | di “rimonta” 
2 ii | nella prima tabella: E _ 
0° |- a 1 ni 
Tabella 1 Tabella 2 Tabella 1 


Il primo metodo ha il vantaggio di essere più semplice, ma richiede la definizione 
di un valore speciale che non deve mai essere contenuto alla tabella iniziale (-1). 

Il secondo metodo si applica a qualunque tipo di tabella, ma è più complicato e 
più lungo da eseguire a causa del tanti spostamenti di rimonta. 


ESERCIZIO 2.9 


Problema: come l’Esercizio 2.8 precedente, ma per una lista di nominativi da 
ordinare alfabeticamente (utilizzare una sola tabella). 

Ingresso: una lista di nominativi. 

Uscita: la stessa lista ordinata alfabeticamente. 
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Analisi: 


Ingresso dei dati 
nella tabella. 


Ingresso 


Ricerca del primo 
nominativo, in ordine 
alfabetico, tra la 
P-esima posizione e 
l'ultima della tabella. 


Scambio di tale nominativo 
con quello nei posto P-esimo. 


Controllo se vi sono 
- — — — — — — - altri nominativi da 
ordinare. 


Per risolvere problemi di questo tipo è necessario utilizzare una sola tabella 
perchè la memoria del calcolatore potrebbe non essere sufficiente per contenere più 
tabelle. 

Il metodo che utilizziamo (applicato ad una tabella di soli cognomi) consiste nel 
ricercare il cognome più piccolo, cioè il primo in ordine alfabetico, e scambiarlo con 
il primo elemento della tabella. 

In tal modo il primo elemento della tabella diviene il primo cognome in ordine 
alfabetico. 

Si prosegue poi analizzando tutti gli elementi successivi spostando il più piccolo, 
dei rimanenti, nella seconda posizione, poi nella terza e così via. 

Per maggiore chiarezza osservate l'esempio seguente. 
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Esempio: 


primo siemento 


mi 


primo elemento 
in ordine alfabetico 


secondo elemento 
della tabella 


BENIAMINO 
MARTINO 


GIORGIO 


MARTINO 


secondo elemento 


in ordine alfabetico «*- terzo elemento 


ESERCIZIO 2.10 


Problema: aggiungere un nominativo ad una tabella già ordinata alfabeticamente, 
nella posizione corretta in ordine alfabetico. 


Ingresso: una lista di nomonativi (cognomi e nomi)e il nuovo nominativo. 
Uscita: 


Analisi: 


Lettura dei cognomi e 
dei nomi mediante 
l'istruzione DATA. 


Ingresso del nominativo 
da aggiungere o della 
parola “Fine” per terminare. 


Ricerca della sua posizione 
in ordine alfabetico 
nella tabella. 


Controllo se ia posizione 
è l'ultima della tabella. 


e 


Archivia-. Archivia- 
zione zione 


9 
l 


Fare scatare | nominativi 
che seguono tale posizione 
e inserire il nuovo 


nominativo nella posizione 
vuota. 


Aggiungere il nominativo 
in coda alla tabella. 


eee - -—-> 
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Per inserire Il nuovo nominativo è necessario dapprima trovare la sua posizione 
nella tabella. 

Se questa posizione è alla fine della tabella, è allora sufficiente aggiungere il nome 
in coda alla tabella. Diversamente è necessario spostare di una posizione tutti i 
nominativi successivi alla posizione trovata. 
Anche in questo caso l’esempio seguente vi sarà di chiarimento. 


Esempio: 


Inserire il nome 2 
invariati dopo lo e, 


x Posto per inserire 


nno 
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CAPITOLO 3 


RICERCHE DENTRO LISTE DI CARATTERI, 
INSERIMENTI, 
SOPPRESSIONE DI CARATTERI 


ESERCIZIO 3.1 


Problema: sopprimere i caratteri “spazio” che si trovano in coda ad una lista di 
caratteri. (Talvolta è necessario che siano tagliati i caratteri spazio 
posti all’inizio e in coda ad una stringa. Questo esercizio mostra come 
togliere quelli in coda; quelli all’inizio vengono tolti automaticamen- 


te.) 
Ingresso: una linea di caratteri. 
Uscita: la stessa linea privata però dei caratteri spazio posti in coda. 
ESERCIZIO 3.2 


Problema: sopprimere tutti i caratteri “spazio” che si trovano in una stringa. 
Ingresso: una linea di caratteri. 
Uscita: la stessa linea senza spaztature. 


ESERCIZIO 3.3 


Problema: aggiungere uno spazio tra i caratteri di una stringa. 
Ingresso: una linea di caratteri. 
Uscita: la stessa linea con spaziature tra i caratteri. 


ESERCIZIO 3.4 
Ingresso: una frase o una parola. 


Uscita: la stessa frase o parola, ma con una lettera in meno ogni volta, come 
mostrato nell’ esempio seguente. 
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Esempio: SALUTI diviene —SALUTI 
ALUTI 
LUTI 
UTI 
TI 
I 


ESERCIZIO 3.5 


Ingresso: una frase. 
Uscita: visualizzazioni successive della stessa frase, ma con una parola in meno 


ogni volta come mostrato nell’esempio. 


Esempio: TRE CIVETTE SUL COMO’ 
CIVETTE SUL COMO' 
SUL COMO’ 
COMO’ 


Analisi: 


Supponiamo, ovviamente, che tutte le parole della frase siano separate da un 
carattere ‘‘spazio”. Il programma ricerca appunto il primo spazio da sinistra e 
sopprime la parola subito precedente. Visualizza quindi la nuova frase e ricomincia 


la ricerca del carattere spazio. 


Ingresso 
della 
frase 


Visua- 
lizzazione 
della 
frase 


Controllo se vi è almeno 
uno spazio nella frase. 


Soppressione di tutti 

Trattamento [roi i caratteri della (rase 
posti alla sinistra de! 
primo spazio. 
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ESEMPIO 3.6 


Problema: fare scorrere una frase sullo schermo da sinistra a destra e da destra a 


sinistra continuamente. 
Ingresso: una frase con meno di 20 caratteri. 
Uscita: la stessa frase che scorre sullo schermo. 


Analisi: 


Fare scorrere la linea 
di testo da sinistra a 
o destra sullo schermo. 


Fare scorrere la linea 
di testo da destra a 


Soluzione: 


198 HOME . “TABS 

20 INPUT "LINEA (26 CAPO MAH») " 
;L$ 

3A L = LEN €(L8$): IF | > 2A THEN 
20 

4A REM DA SINISTRA A DESTRA 

50 FORI =1T04@4-L 

69 VTAB 15: PRINT SPC ID3:l$ 

CA FORI = 4 TO 1400. NEST JI 

580 MEXTI 

99 REM DA DESTRA A SINISTRA 

100 FOR I = 4A -L TOA STEP - 


1 
110 VTAB 15: PRINT SPCC I\.Lf. SPC: 
48): PRINT 


120 FOR TJT=1 TO 190 NEXT I 
130 NEXTI 
139 GOTO 4A 


sinistra sullo schermo. 
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Variabili: 
I,J - contatori 


L - lunghezza di L$ 
L$ - linea di testo 


50, 100: lalinea viene visualizzata dalla colonna 0 alla colonna 40-L dove L è la 
lunghezza della linea di testo. (L'istruzione PRINT in coda alla linea 
110 serve per ritornare a capo). 

60, 110: la linea di testo viene fatta precedre o seguire da spaziature per cancel- 
lare la visualizzazione precedente. 

70, 120: ciclo di attesa. 


ESERCIZIO 3.7 


Problema: fare scorrere una frase sullo schermo da destra a sinistra senza mai 


fermarsi. 
Ingresso: una frase con meno di 40 caratteri. 
Uscita: la stessa frase che scorre sullo schermo. 
Analisi: 
Proponiamo due metodi per risolvere il problema: 
Metodo 1 


Creare una stringa di 40 caratteri (larghezza dello schermo) composta dalla frase 
d’ingresso e da un numero sufficiente di caratteri spazio e poi visualizzarla sullo 
schermo. Per farla scorrere elidere il suo primo carattere e aggiungerlo in coda. 

Proseguire quindi con visualizzazioni successive. 


Creare una stringa di 

Trattamento L —- - — - —- 40 caratteri aggiungendo 
dei punti alla linea data 
in ingresso. 


Togliere il primo carattere 
_e=--- della stringa e aggiungerio 
in coda. 
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Metodo 2 


Questo metodo prevede l’uso dell'istruzione MID$. 


Ingresso 
della 
linea 


Visualizzare la linea 
dalla colonna |, cioè 
dai bordo destro dello 
schermo, e proseguire 
dal bordo sinistro con 
la parte restante 

della linea 


ESERCIZIO 3.8 


Problema: 


Ingresso: 
Uscita: 


Analisi: 


trasformare una frase dalla forma negativa a quella positiva soppri- 
mendo la parola NON. 

una frase con significato negativo. 

la stessa frase, ma con significato affermativo. 


Cercare nella frase e __°_ 
la parola ‘“ non ". 
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Attenzione: la ricerca delle negazioni deve essere fatta cercando la parola ‘* NON ” 
preceduta e seguita da spaziature per evitare confusione con parole come “NON- 
no”, ‘*anNONario”, ecc. Attenzione anche al caso che la negazione sia all’inizio 
della frase. 


ESERCIZIO 3.9 


Problema: inserire alcuni caratteri in una stringa in una posizione voluta. 
Ingresso: una stringa di caratteri, i caratteri da inserire e la loro posizione. 
Uscita: la nuova stringa. 


Esempio: ‘* APPLE II° e “PLUS ” con 6 danno “APPLE PLUS II”. 


ESERCIZIO 3.10 


Problema: sostituzione di una parola con un’altra in una linea di testo non più 
lunga di 80 caratteri. Se la parola è presente più volte, deve essere 
sempre sostituita (purchè non venga superata la lunghezza massima di 
80 caratteri). 

Ingresso: una linea di testo non più lunga di 80 caratteri, la parola da togliere e 
quella nuova da mettere. 

Uscita: la nuova linea (non più lunga di 80 caratteri). 


Analisi: 


ingresso della linea delia 

© < parola da togliere e della 
parola da mettere al suo 
posto. 


e- 


i volta la parola da 


togliere. 


Controllo se è stata 
trovata aimeno una 


Controllo se esiste 
una parole (0 più 


parole) da togliere. NO 


Visualizzare: 
“La parola non è 


Visualizzare nella linea”. 


“Cambia- 
mento im- 
possibile 


Controllo se la nuova 
linea non supera - 
80 caratteri. 


Visualiz- 
zazione 
della 
Conferma se l'utente linea 
vuole fare ia 
sostituzione. 


La ricerca della posizione della parola da cambiare nella frase, viene effettuata 
confrontandola con un gruppo contiguo di caratteri della stessa lunghezza, comin- 
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ciando dall'inizio e proseguendo con spostamenti successivi verso destra di un 
carattere sino alla fine della linea. 

Ogni volta che viene incontrata la parola da togliere, il calcolatore chiede 
conferma della sostituzione all’utente. 


ESERCIZIO 3.11 


Ingresso: una frase o una parola. 
Uscita: la stessa frase con i caratteri tutti invertiti e un’altra frase con gli stessi 
caratteri, ma posti in ordine aleatorio. 


Esempio: TAVOLA da ALOVAT in ordine inverso e ALVOTA o VLAATO, per 
csempio, in ordine qualunque. 


Analisi: 


Creazione 
della linea 
inversa 


Creazione 
della linea 
aleatoria 


Visualizzazione della 
linea normale, di quella 
inversa e di quella 


Per invertire i caratteri si proceda nel modo seguente: si leggano uno ad uno dal 
fondo 1 caratteri della stringa e li si riscrivano in una nuova stringa. 


Esempio: PINOCCHIO diviene O 
OI 
OIH 
OIHC 
OIHCC 
OIHCCO 
OIHCCON 
OIHCCONI 
OIHCCONIP 
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Per costruire invece la stringa aleatoria, si preleva uno alla volta a caso un 
carattere della stringa originaria, cancellandolo da questa, e lo sì riscrive nella 


nuova stringa. 
Esempio: PINOCCHIO diviene PNOCCHIOI 


PNOCHIOIC 
NOCHIOICP 
NOCHOICPI 
NOCHICPIO 
OCHICPION 
OCICPIONH 
CICPIONHO 
ICPIONHOC 


ESERCIZIO 3.12 


Problema: visualizzare il codice ASCII di un carattere battuto alla tastiera (utiliz- 


zare l'istruzione GET). 


Ingresso: un carattere battuto alla tastiera. 
Uscita: il codice ASCII del carattere battuto (con Control C° cioè codice 3 il 


programma termina). 


Soluzione: 

19 GET R$ 

ZA PRINT ASC CH$) 

390 IF ASC CREO < > 2 THEN 1A 
49 END 


ESERCIZIO 3.13 


Problema: l’istruzione INPUT non permette che siano dati in ingresso in una 


stringa ne le virgole ne i due punti. Provate a simulare tale istruzione 
con la GET così da potere accettare anche questi due caratteri in 
ingresso. 


Ingresso: una linea di testo che comprenda anche virgole e due punti. 
Uscita: la stessa linea di testo. 
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Analisi: 


Battitura 
di un tasto 
@ sua visua 
lizzazione 


Sopprimere'l'ultimo 
carattere della frase. 


Aggiungere il carattere 
alla frase. 


lizzazione 
della 
frase 


Attenzione: l’istruzione GET A$ attende che venga battuto un qualunque tasto e 
poi attribuisce, alla variabile A$, il carattere corrispondente. RETURN e sono per 
esempio due caratteri ASCII. Per sapere quale dei due valori è contenuto nella 


variabile A$ si può usare la funzione ASC: 
Codice ASCII di RETURN : 13 
di : 8 


ESERCIZIO 3.14 


Problema: trasformare ciascun elemento, di una tabella di numeri, nella sua 
percentuale in rapporto alla somma di tutti i numeri della tabella. 


Ingresso: una tabella di numeri. 
Uscita: la tabella delle singole percentuali calcolate rispetto allasomma di tutti 


1 valori della tabella. 


ESERCIZIO 3.15 


Problema: visualizzare la percentuale di presenza in un testo di ciascuna lettera 


dell’alfabeto. 
Ingresso: una o più linee di un testo. 
Uscita: tutte le lettere dell’alfabeto seguite dalle percentuali di presenza nel 


testo dato. 
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Analisi: 


Ingresso 
delle linee 
di testo 


Visua- 
lizzazione 
dei 
risultati 


Contare |) numero di 
volte che ciascuna 
lettera dell’attabeto 
appare nel testo. 


cene Contare il numero totale 
di lettere del testo e 
calcolare le percentuali 
di presenza delle 
lettere dell'alfabeto. 


ESERCIZIO 3.16 


Problema: 


Ingresso: 
Uscita: 


trasformare una data, posta nella forma numerica 15,7,1790 (giorno, 
mese, anno), in una stringa di caratteri ‘15 luglio 1790” 

tre numeri corrispondenti a giorno, mese e anno. 

visualizzazione della stringa contenente la data. 


ESERCIZIO 3.17 


Problema: 


Ingresso: 


programma inverso del precedente (Esercizio 3.16). 
una data sotto forma di stringa. 


Esempio: 13 luglio 1788 


Uscita: 


i tre numeri corrispondenti a giorno, mese e anno. 


Esempio: 13, 7, 1788 
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Analisi: 


La stringa originaria viene scomposta in base alle spaziature. 
Per ricercare il numero del mese, i mesi possono essere registrati in ordine da 
gennato a dicembre in una istruzione DATA. 


Calcolo del giorno. 
Ricerca del mese. 
Catcoto dell'anno. 


Visualiz- 
zazione 
dei 
risultati 


31 


CAPITOLO 4 


ISTOGRAMMI, GRAFICI IN ALTA E BASSA 
RISOLUZIONE, TRACCIAMENTO 
DI FUNZIONI, ANIMAZIONI 


ESEMPIO 4.1 


Problema: sottolineare il cognome e il nome di una persona. 
Ingresso: il cognome e il nome di una persona. 
Uscita: il cognome e il nome sottolineati. 


Soluzione: 


19 Trg = "----------------------- 

ZA HOME : VIRBES 

ZA INPUT "MOME? "NÉ 

4H# INPUT “COGNOME? ":C£ 

SA PRINT : PRINT 

EÙ HTAB 5 

ch PRINT N$;" ":C$ 

49 HTABS 

4 FRINT MID$ CTRE. 1. LEN CN$)) 
i"; MID$ “TR$£.1. LEN C$) 


Variabili: 


N$ - nome 
C$ - cognome 


Attenzione: è possibile scrivere: 
90 PRINT LEFT$(TR$,LEN(N$)); ";LEFT$(TR$,LEN(C$)) 


ma questa linea di programma può causare un errore se N$ o C$ sono nulle. 
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ESERCIZIO 4.2 


Problema: visualizzare sullo schermo un linea e una colonna di asterischi. 

Ingresso: un numero L compreso tra | e 24, e un numero C compreso tra | e 39. 

Uscita: visualizzare una linea di C asterischi sulla L-esima linea e una colonna 
di L asterischi sulla C-esima colonna. 


ESERCIZIO 4.3 


Problema: visualizzare un istogramma orizzontale a partire da venti valori. 
Ingresso: venti valori compresi tra 0 e 100. 
Uscita: visualizzazione dell’istogramma corrispondente. 


Esempio: 10,35,90,3,8,... danno luogo all’istogramma: 


HHH# 

HHHHHHHHH# 
HRHAHHAHHHHHHHHAHHHHHAHHHHHHHHHHH 
# 

H## 


Analisi: 


Si fa corrispondere il valore massimo (per noi 100) al massimo numero di 
asterischi che si possono tracciare su una riga dello schermo (40). I valori intermedi 
dell’istogramma sono ottenuti con una semplice proporzione che per un valore 
generico V è: V/100*40 


Ingresso 
di 20 
valori 


Visualizzare per 
ciascun valore il 
numero corrispondente 
di asterischi. 
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ESERCIZIO 4.4 


Problema: analogo all’Esercizio 4.3 precedente, ma per 30 valori positivi senza 
limitazione di grandezza e con l’istogramma posto verticalmente. 

Ingresso: 30 valori positivi. 

Uscita: l’istogramma verticale corrispondente. 


Analisi: 
In questo caso il numero massimo di asterischi, visualizzabili su una colonna 
(24), viene fatto corrispondere al valore maggiore dato in ingresso. 


La formula che ci dà il numero di asterischi, a partire dal valore massimo G e dal 
valore corrente V, è: V/G*24 


Ingresso del numero 
di valori. 
Ingresso Ingresso dei valori. 


Ricerca 
del valore 


maggiore 


Visualizzare in verticale 
per ciascun valore il 
numero corrispondente 
di asterischi. 


ESEMPIO 4.5 


Ingresso: un numero compreso tra 0 e 15. 
Uscita: riempire lo schermo, nel modo grafico a bassa risoluzione, con il colore 
il cui codice è richiesto in ingresso. 


Soluzione: 


15% TEST : HOME . VTRES 

28 INPUT "QUALE COLORE 0-45) ? 
"i 

SH IF CZ 4 ORC S 15 THEN 204 

49 GR 

4 COLOR= C 

0 FORI = TO 22 
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PA HLIN @& 9 ATI 
SAGONEST I 
30 END 


60-80: riempimento dello schermo nel colore voluto. 


Attenzione: è possibile anche scrivere: 


70 VLIN 0,39 ATI 


ESERCIZIO 4.6 


Problema: stesso programma dell’Esercizio 4.4 ma per due gruppi di dieci valori. 
Si chiede cioè di fare un istogramma comparativo come sarebbe neces- 
sario, per esempio, per confrontare le vendite di dieci articoli in due 


periodi diversi. 


Ingresso: due gruppi di dieci valori. 
Uscita: l’istogramma comparativo verticale in bassa risoluzione (usare due 
colori diversi per le due sequenze di valori). 


Esempio: 
primo valore det n 
primo gruppo 
primo valore del 
secondo gruppo 
Analisi: 


E° necessario, come nel caso precedente, fare corrispondere il valore massimo tra 
i due gruppi di valori alla massima ampiezza dell’istogramma. 
Per registrare i valori si possono usare due tabelle, da dieci elementi, oppure una 


sola tabella con due indici. 
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Aa = 


Ingresso di due gruppi 
di 10 valori. 


Calcolo del valore maggiore. 


Porre I=0. 


Disegnare con il primo 
colore la colonna I-esima 
del primo gruppo e 

con il secondo colore la 
colonna I-esima del 
secondo gruppo. 


ESERCIZIO 4.7 


Problema: disegnare, in alta risoluzione, l’istogramma delle somme del lancio di n 
dadi per 800 lanci (vedere l’Esercizio 1.8). 

Ingresso: il numero di dadi gettati assieme ogni volta. 

Uscita: l’istogramma. Ciascuna colonna dell’istogramma corrisponde alle 
possibili somme per un numero fissato di dadi (per esempio con tre 
dadi si possono avere i valori somma: 3,4,5,...,17,18). Le ampiezze 
dell’istogramma dipendono dal numero di volte che le singole somme 
escono negli 800 lanci. 


Analisi: 


Riportiamo la parte principale del diagramma a blocchi. 
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Ingresso 
dei numero 
di dadi 


Caicolo 
della somma 
dei dadi 


Aumentare di un punto la 
colonna dell'istogramma 
corrispondente alla 


somma dei dadi. 
cerano (e 

reggiunto I'800-esimo 

ESEMPIO 4.8 

Uscita: tracciare una linea a caso sullo schermo in alta risoluzione. 

Soluzione: 

i% HGR 

29 HCOLOP= è? 

30 1 = RMD (1) * 2904 

4 #2 = EMO (1) * 280 

SA T1 = RIND 1) * 160 

60 Y2 = RND «10 * 160 

65 : 

76 HPLOT K1.VYi TO X2, 42 

S9 END 

Variabili: 


X1,X2 - valore aleatorio delle ascisse 
Y1,Y2 - valore aleatorio delle ordinate 


Per tracciare la linea a caso vengono scelti due punti aleatori sullo schermo (linee 
30 e 60) e poi vengono congiunti con una retta. 


ESERCIZIO 4.9 


Ingresso: coordinate di un punto dello schermo in alta risoluzione (due valori: il 
primo compreso tra 0 e 279 e l’altro tra 0 e 159). 
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Uscita: tracciare 100 linee a stella che colleghino questo punto con un altro 
scelto a caso. 


ESERCIZIO 4.10 

Uscita: tracciare a caso delle linee sullo schermo, in alta risoluzione, in modo 
che il loro punto di mezzo sia sempre sul centro dello schermo (punto di 
coordinate 140,80). 

ESERCIZIO 4.11 


Problema: disegnare una quadrettatura dello schermo sia in bassa che in alta 


risoluzione. 

Ingresso: spaziatura (cioè numero di punti) entro ciascuna linea della quadretta- 
tura. 

scita: quadrettatura dello schermo grafico in bassa risoluzione con la spazia- 


tura indicata in ingresso; successivamente stessa quadrettatura, ma in 
alta risoluzione con la spaziatura tra le linee cinque volte superiore. 


l'sempio: spaziatura di 2 


5 volte 
la spaziatura 
(10 “punti") 


spaziatura 
(2 “punti") 


bassa risciuzione alta risoluzione 


Analisi: 


ingresso del valore di 
spaziatura tra le linee 
della quadrettatura. 

Ingresso f_— — —_—_ — — — 
Disegno della 

Uscita f--------- quadrettatura in bassa 

risoluzione. 
Disegno della 
quadrettatura in alte 


risoluzione con spaziatura 
$ volte superiore. 
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La quadrettatura viene eseguita tracciando delle linee orizzontali e verticali 
separate dal valore di spaziatura dato. 


ESERCIZIO 4.12 


Problema: realizzare un gioco, con telecomando, in grafica a bassa risoluzione. 

Ingresso: usare i due ‘‘paddle’’ del calcolatore. 

Uscita: visualizzare un punto le cui coordinate sono date tramite le manopole 
dei due ‘paddle”. Cambiare il colore di visualizzazione se è premuto il 
pulsante del ‘“paddle’’ 1; cancellate invece lo schermo se viene premuto 
il pul ante 0. 


Analisi: 


I valori dati dai due “paddle"” vengono fatti corrispondere alle coordinate del 
punto. 


I ‘‘paddle’’ generano un riferimento tra 0 e 255 che viene fatto corrispondere ad 
un valore tra 0 e 39 con la formula: 


PDL(n)*39/255 


Inizializzazione 


Visualizzare un punto 
sullo schermo in 
corrispondenza ai valori 
dati dai due paddie. 


i Controllo se viene premuto 
pra Test — — — —J il pulsante dei paddie 0. 
Y schermo ED 


Controllo se viene premuto 


Cambiamento il pulsante del paddie 1. 


del colore 


ESERCIZIO 4.13 


Problema: stesso programma come il precedente 4.12, ma in alta risoluzione. 


40 


Ingresso: mediante la battitura di uno dei tasti R, T, Y, H, B, V,CeFsideve fare 
muovere il punto sullo schermo; una cifra tra 0 e 7 determina invece il 
colore e il tasto RETURN fa cancellare lo schermo. 


Uscita: visualizzare il punto sullo schermo, con il colore indicato, e spostarlo in 
queste direzioni battendo la lettera corrispondente: 
R -inalto a sinistra 


T - in alto 

Y - inalto a destra 
H-a destra 

B - in basso a destra 
V - in baso 


C - in basso a sinistra 
F- a sinistra 


Analisi: 


Si deve stabilire la posizione iniziale sullo schermo; in questo caso l’abbiamo 
posta al centro. 


Il punto è 
posto al 
centro dello 
schermo 


Controllo del tasto 
ll... premuto dall'utente. 
Visualiz- 
zazione 
dei punto 


Pulitura ff = ._ ze AL Definizione 
dello 
schermo 


colore 


fanno salire il punto 
: fanno scendere il punto 

; spostano il punto a sinistra 
: spostano il punto a destra 


ESEMPIO 4. 14 


Problema: tracciare una circonferenza con la grafica ad alta risoluzione. 
Ingresso: le coordinate del centro della circonferenza e il suo raggio. 
Uscita: tracciare sullo schermo la circonferenza voluta. 
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Analisi: 


L' equazione della circonferenza di centro (0,0) e raggio R è: 
Y2=R2—-X?2 


I punti della circonferenza possono allora essere ottenuti facendo variare X tra 
-Re R; a ciascun X corrisponderanno 1 due punti: 


X.Y=SQR(R 2—X 2) e X,Y=SQR(R 2—X ” 2). 


Nel caso il centro sia posto invece nel punto (CX,CY), i punti precedenti 


diventano: _ . . 
CR+X,CY+SQR(R 2—X 2) e CX+X,CY-SQR(R 2—X 2). 


Soluzione: 


145 TEST HOME : VYTAB S 
20° INPUT “COORDINATE CENTRO CIRC 
OMF. €, 95: "CX, CY 
300 IF CR OR CK > 2729 OR CY < 
4 OR CY > 159 THEN PRINT "X 
DARA BA 279. SFDABG A 159": GOTO 
20 
4 INPUT “FAGGIO: "iR:R = ABS 
R3 
45 IFCX-RZADRCK+ RR > 279 
ORCY-RKZA or cy +tR341 
Sd THEN PRINT “IMPOSSIBILE" 
: GOTO 40 
So RI=RT2 
6A HOP : HCOLOR= 3 
FAO HFLOT CK. CY 
9: 
86 REM DISEGNO DELLA CIRCONFERE 
NZA 
SA FORX=SGS TOR 
190 Y = SOR CRE - XU 2) 
119 HPLOT Ck + X,CY+ rr: HPLOT C 
"XM - XCY + Y: HPLOT CX - X.C 
Y- +: HPLOT CK +X.,CY-v 
129 NEXT X 
149 END 
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Variabili: 


CX,CY - coordinate del centro 


X - contatore 

Y- variabile 

45: se una parte della circonferenza esce dallo schermo, allora il program- 
ma viene ripetuto con un altro raggio. 

50: calcolo del quadrato del raggio. 

70: tracciamento di un punto nel centro della circonferenza. 

90-130: tracciamento della circonferenza utilizzando la sua simmetria. Infatti 


se Il centro è nell'origine e se un punto (X,Y) appartiene alla circonfe- 
renza, anche (-X,Y), (-X,-Y), (X,-Y), (Y,X), (-Y,X), (-Y,-X) € (Y.-X) 
appartengono alla stessa curva. 


ESERCIZIO 4.15 


Uscita: tracciare la funzione Y=SIN(X) con la grafica ad alta risoluzione. 
Tracciare anche gli assi cartesiani prendendo come origine il punto 
dello schermo X=140 e Y=80. 


Analisi: 


Per tracciare una qualunque funzione sullo schermo è necessario scegliere una 
scala, cioè stabilire a quanti punti sullo schermo corrisponde una unità della 
funzione. Per esempio per la nostra funzione SIN abbiamo scelto che 30 punti 
sull’asse delle ordinate equivalgono al valore | del ‘‘seno”. 


Attenzione: poichè il centro degli assi è posto a (140,80), al punto (X,Y) dello 
schermo corrisponderà il punto (X-140,Y-80) della funzione da tracciare. 


Traccia- 
mento 
degli 
assi 


Traccia- 
mento 
della 
sinusoide 
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ESERCIZIO 4.16 
Problema: tracciare una curva Y, funzione di X, definita dall'utente. 
Analisi: 


Come per l’Esercizio precedente (4.15) bisogna determinare la posizione dell’ori- 
gine delle coordinate e la scala degli assi. 

Si può anche chiedere all'utente quale porzione di ascisse desidera visualizzare e 
calcolare quindi sia l’ascissa dell’origine che la scala dell’asse delle ascisse. 

Successivamente si devono calcolare i valori estremi della funzione, nell’interval- 
lo desiderato, e determinare quindi sia il valore dell’ordinata dell’origine che la 
scala dell'asse delle ordinate. 


Attenzione: l'utente deve fornire la funzione scelta sotta forma di una linea di 
programma. 


Controllo se l'utente 
ha già dato la sua 
funzione (diversamente 
il programma si ferma 
per permettere di dare 
la funzione). 


ingresso delle due ascisse 
entro cui disegnare la 
funzione. 


Calcolo 


dei valori 
estremi 


Visualizzazione degli 
assi e della funzione. 


ESERCIZIO 4.17 


Uscita: una palla (rappresenta da un punto sullo schermo in bassa risoluzione) 
cade dall’alto dello schermo. 
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ESERCIZIO 4.18 


Problema: stesso problema come il precedente Esercizio 4.17, ma per una banda 
orizzontale in bassa risoluzione. 
Ingresso: colore di fondo, colore della banda e sua larghezza. 


Uscita: 


| Larghezza della banda 


Analisi: 


Per dare l'impressione che la banda si sposti verso il basso è sufficiente disegnare, 
sotto la banda, una nuova linea del suo stesso colore e subito dopo cancellare la 
prima linea della banda ricoprendola con una linea del colore del fondo. Questa 
operazione deve poi essere ripetuta più volte. 

Quando la banda arriva sul fondo si tracciano le nuove linee a partire invece 
dall'alto. 


Riempimento dello schermo 
con il colore di fondo. 


oe della banda. 


Spostamento della 
posizione della banda. 
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ESERCIZIO 4.19 


Problema: fare rimbalzare un rettangolo sui bordi dello schermo (grafica in alta 


risoluzione). 
Ingresso: due valori numerici: H compreso tra 1 e 130 e L compreso tra I e 200. 
Uscita: un rettangolo di altezza H e larghezza L animato da un movimento 


rettilineo in direzione aleatoria, rimbalza sui bordi dello schermo. 
Analisi: 


Per dare l'impressione che il rettangolo si muova si usa lo stesso metodo impiega- 
to nell’Esercizio 4.18. Il rettangolo viene cancellato dalla sua vecchia posizione e 
poi disegnato nella nuova. 

Per evitare che il movimento appaia a sbalzi, bisogna ridurre i tempi di calcolo e 
disegnare il nuovo rettangolo subito dopo aver cancellato il vecchio. 

Per calcolare le coordinate successive di un punto, che sisposta in linea retta sullo 
schermo, può risultare comodo aggiungere alle sue coordinate due costanti conte- 
nenti gli spostamenti verticale e orizzontale. 

Per farlo rimbalzare su uno dei bordi dello schermo, è sufficiente allora cambiare 
il segno dello spostamento corrispondente (spostamento orizzontale per i bordi 
destro e sinistro, spostamento verticale per i bordi superiore e inferiore). 


Ingresso dell'altezza 
n - n pu-_-_ ——__ e della larghezza 
del rettangolo. 


Ingresso 


Inizializzazione 


Cambiamento del segno 
Controllo se il — == 4 dello spostamento. 
rettangolo ha 

raggiunto il Calcolo 
bordo dello schermo. 


Calcolo 
della nuova 
posizione 


il rettangolo viene 
na - n -—_. cancellato dalla sua 

vecchia posizione e 

disegnato in quella nuova. 
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CAPITOLO 5 


GIOCHI GRAFICI,“FILETTO”, ESTRAZIONE 
DI UNA SERIE DI NUMERI ALEATORI, 
NUMERI PRIMI 


ESERCIZIO 5.1 


Problema: è un gioco grafico in bassa risoluzione. Un punto sullo schermo si 
muove dal bordo sinistro a quello destro a velocità costante. Il gioco 
consiste nel fare arrivare il punto al bordo destro cercando di evitare 
degli ostacoli che sono posti a caso sullo schermo. Per questo motivo il 
giocatore può far deviare, verso l ‘alto o il basso, il punto usando la 
manopola di un “paddle”. 

Ingresso: impiegare un ‘‘paddle” (opzionale: chiedere un livello iniziale di diffi- 
coltà del gioco). 

Uscita: lo schermo grafico riempito di ostacoli mentre il punto si muove da 
sinistra verso destra. Se viene incontrato un ostacolo il gioco termina e 
poi si ripete. 


Analisi: 


Il programma legge il valore assunto dal ‘*paddle”: se minore di 80 il punto viene 
fatto salire, se maggiore di 170 viene fatto invece scendere. ( Attenzione a non uscire 
dallo schermo). 

Opzione: il numero di punti ostacolo sullo schermo viene determinato in funzio- 
ne di un certo livello di difficoltà. 
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ESERCIZIO 5.2 


Problema: gioco del “filetto”. Su una scacchiera 3x3 ogni giocatore pone il suo 
segno in una casella. I due giocatori si alternano e vince chi riesce per 
primo a porre tre suoi segni in fila. 

riga e colonna della casella scelta dal giocatore. 
visualizzazione della scacchiera con le mosse fatte, controllo dopo ogni 
mossa se uno dei due giocatori ha vinto e avviso finale se la partita è 
patta (dopo 9 mosse senza alcuna vincita). 


Ingresso: 
Uscita: 


Analisi: 


La scacchiera è rappresentata da una tabella a tre linee e tre colonne. 

Per indicare se una mossa corrisponde al primo o al secondo giocatore, è 
sufficiente porre, nella variabile che rappresenta la tabella, un 1 o un 2. 

Dopo ogni mossa si deve controllare se su una riga o su una colonna o su una 


Inizializzazione 


Calcolo 
della nuova 
posizione 


Controllo se nella nuova 
posizione vi è un ostacolo. 


Il punto viene cancellato 

- —— — — LJ dalla sua vecchia 
posizione e disegnato in 
quella nuova. 


nu Controllo se li punto 
ha raggiunto il bordo 
destro dello schermo. 


diagonale, della scacchiera, vi sono tre segni eguali. 
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Visualizzazione della 
scacchiera e ingresso 
delle mosse. 


Registrazione della 
mossa nella tabella. 


Controllo se il giocatore 
ha vinto. 


. Controllo se sono state 
giocatore fatte 9 mosse. 


ESERCIZIO 5.3 


Problema: trovare una parola, di cui si conosce la lunghezza, proponendo di volta 
in volta le sue possibili lettere. 

Ingresso: le lettere dell'alfabeto una alla volta per tentativi successivi. 

Uscita: se la lettera proposta appartiene alla parola, essa viene visualizzata 
nella posizione corretta (o nelle posizioni se compare più di una volta). 
il giocatore non può fare più di cinque errori. 


Analisi: 


Registrare nel programma alcune parole da indovinare, mediante l'istruzione 
DATA. 
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Scegliere a caso una 
parola già registrata 
nel programma. 
Porre C=0. 


Trattamento > --- —- - ---_ Lane - 


Visualizzare la parole 
senza le lettere non 
ancora trovate. 
ingresso di una lettera. 


Ingresso/ 
Uscita 


-— — = -—| Controllo se la nuova 
lettera appartiene 
alla parola. 


nu Controllo se tutta 
la parola è stata 
indovinata. 


ESERCIZIO 5.4 


Problema: come l’Esercizio 1.7, ma all’inverso. Voi pensate un numero (tra 0 e 
999999) e il calcolatore deve indovinarlo. 
Ingresso: il giocatore deve rispondere ai tentativi del calcolatore con: 
H - se il tentativo è troppo alto 
B - se è troppo basso 
J - se il calcolatore ha trovato il numero esatto. 
Uscita: i numeri tentativi. 


Analisi: 


Il metodo consiste nel proporre, come tentativo, il numero di mezzo dell’interval- 
lo che si sa già contenere il valore esatto. 


Porre inizialmente 0 
come estremo inferiore 
iii e 1000000 come estremo 
Calcolo superiore. 


Visualizzare il numero 
Ingresso -—-- 4 amet tra l'estremo 
scita superiore e quello 
interiore: 
Sup. + Inf. 
2 
C 


alcolo 
una Prendere il valore prova 
come estremo superiore. 

Calcolo 


------ | Prendere il valore prova 


come estremo inferiore. 


ESERCIZIO 5.5 


Problema: visualizzare una estrazione del gioco del lotto (versione francese). 
Uscita: sette numeri interi aleatori compresi tra 1 e 49. 


Analisi: 
Per evitare che possa uscire due volte lo stesso numero, viene riempita una tabella 
con i numeri possibili (dall’1 al 49) e ogni volta che un numero ‘esce’ esso viene 


tolto dalla tabella facendo rimontare i valori successivi (vedere l’Esercizio 2.8). 


Attenzione: provate a riscrivere lo stesso programma per il lotto nella versione 
italiana: cinque numeri compresi tra | e 90. 
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Riempire la tabella 
con i numeri da 1 a 49. 


Calcolo 


Calcoto Prendere un numero R 


acasotraleil 
numero di elementi 
della tabella. 


ese? Visualizzare l’A-esimo 
numero della tabella. 


t 
Trattamento Togliere questo numero 


dalla tabella. 


Controllo se sono stati 
visualizzati 7 numeri. 


ESERCIZIO 5.6 


Problema: mescolare 52 carte. 
Uscita: visualizzare le 52 carte mescolate. 


Analisi: 


E° sufficiente far corrispondere a ciascuna carta un numero compreso tra 0 e SI. 
Per mescolarle si può quindi usare il metodo dell’Esercizio precedente cioè estrarre 
le carte una alla volta a caso. 

Per stabilire una corrispondenza tra i numeri e i segni delle carte si può porre: 
da 0 a 12: Picche 
da 13 a 25 : Cuori 
da 26 a 38 : Fiori 
da 39 a SI : Quadri 
e nell’ambito di ciascun colore seguire l’ordine numerico delle carte. Per esempio: 
0 diviene l’Asso di Picche, 

1 diviene il 2 di Picche, 

13 diviene l’Asso di Cuori, 
14 diviene il 2 di Cuori, 
ecc. 


Riempire le tabella 
con i numeri da 1 a S1. 


Riempire a caso una 
---------_ seconda tabella a 
partire dalla prima. 


Visualizzare te carte 
corrispondenti agli 
elementi della 
seconda tabella. 


ESERCIZIO 5.7 
Uscita: visualizzare i numeri primi. 


Analisi: 


Controllo se N è 
divisibile per uno 
degli interi dispari 
compresi tra 3 e 
SOR( N). 


Un numero primo è un numero intero positivo divisibile solo per se stesso e per |. 
Se vale l'eguaglianza A=INT(A/B)*B allora A è divisibile per B. 


53 


Per sapere se un numero è primo, è sufficiente fare il test precedente per tutti gli 
interi B compresi tra 1 e la radice quadrata del numero. 


Attenzione: tutti i numeri pari eccetto il 2 non sono mai numeri primi (perchè sono 
ovviamente divisibili per 2 possono quindi essere eliminati dalla ricerca. 


ESERCIZIO 5.8 


Problema: eseguire una tra le operazioni di addizione, sottrazione, moltiplicazio- 
ne e divisione su due numeri forniti dall’utente. ° 

Ingresso: la scelta dell'operazione da fare e i due operandi. 

Uscita: il risultato dell'operazione. 


Analisi: 


Visualizzazione 
del menu: 


1-Addizione 

2-Sottrazione - ingresso/ 
3-Moltiplicazione Uscita 
4-Divisione 


5-Fine dei programma. 


Ingresso della scelta. 


Ingresso 
degli 
operandi 


Controllo se il 
- secondo numero 
è 0. 
1 
Visualizzare: 
"Divisione per 0” 
Addizione Sottra- Moltipli- 
zione cazione 
Divisione 
Visua- 
lizzazione 
del 


risuitato 


La visualizzazione del menù permette di scegliere tra più opzioni possibili. Il 
menù è costituito dalle singole opzioni precedute da una cifra o da una lettera; la 
scelta viene fatta battendo la cifra (o la lettera) scelta. 
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CAPITOLO 6 


SCRITTURA E LETTURA DI DATI IN UN 
ARCHIVIO, PICCOLO PROGRAMMA DI 
GESTIONE DI INDIRIZZI 


ESERCIZIO 6.1 


Problema: registrare una lista di parole, battute alla tastiera, in un file sequenziale 
su dischetto. 

Ingresso: il nome del file e una lista di parole. 

Uscita: scrittura delle parole nel file. 


Analisi: 


Proponiamo due metodi per la scrittura del programma. 

Con il primo metodo le parole sono scritte nel file una per una appena sono 
battute alla tastiera. Con il secondo invece esse sono dapprima registrate in una 
tabella, poi tutta la tabella viene trasferita nel file. 

Il primo metodo presenta lo svantaggio di rallentare molto l’ingresso dei dati a 
causa dei tempi di registrazione di ogni parola sul dischetto. Il secondo invece è 
pericoloso perchè se dovesse mancare la corrente, dopo che avete caricato molti 
dati, dovreste rifare tutto daccapo. 

Il metodo migliore, per caricare un gran numero di dati, consiste ovviamente in 
una soluzione intermedia tra le due. 


Attenzione: i due metodi sono analoghi a quelli utilizzati nell’Esercizio 2.4. Nel 


primo caso un “marker” (per noi la parola STOP”) indica la fine dei dati; nel 
secondo invece viene espressamente indicato il numero di dati totale. 


Primo metodo: 


Scrittura 
della 


parola 
nel file 


Secondo metodo: 


Ingresso delle parole 
in una tabella. 


Scrittura nei file del 
numero di parole e 
delle parole stesse. 


ESERCIZIO 6.2 


Problema: lettura della lista di parole registrata precedentemente. 
Ingresso: il nome del file creato nel programma 6.1. 

Uscita: visualizzazione della lista di parole. 

Analisi: 


Proponiamo due metodi analoghi a quelli dell'esercizio precedente. 


Primo metodo: 


Lettura di 
una parola 
del file 


Visua- 
lizzazione 


della 
parola 


Secondo metodo: 


Lettura del numero di 
parole nel file e delle 
Ingresso f--_---—---—- parole. 
Scrittura delle parote 
nella tabella. 
Visualizzazione 
COTTO della tabella. 


ESERCIZIO 6.3 


Problema: 


Ingresso: 
Uscita: 


registrazione del nominativo e dell’indirizzo di una persona in un file 


ad accesso diretto. 
il cognome, il nome e l'indirizzo di più persone. 
registrazione dei dati nel file. 
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Analisi: 


In un file ad accesso diretto è necessario precisare la lunghezza massima dei 
record, cioè del nominativo con il suo indirizzo più lungo. Attenzione però che 
bisogna riservare un carattere in più in ogni record per indicare la sua fine. 
Riteniamo che per registrare ì nostri nominativi, 95 caratteri per ogni recrd siano 
sufficienti. 


Attenzione: è utile registrare il numero di nominativi contenuti nel file. 


Inizia- 
lizzazione 
N=0 


Ingresso dei cognome, 
del nome e dell'indirizzo 
di una persona. 


Scrittura nel file 

del cognome, del nome 
e dell'indirizzo, 

con it numero 

di registrazione N. 


Richiesta se l'utente 
vuole registrare 
un altro nominativo. 


Scrittura nel tile dei 
numero totale N di 
nominativi che contiene. 


ESERCIZIO 6.4 


Problema: utilizzando il file creato in precedenza, ritrovare l’indirizzo di una 
persona a partire o dal suo numero di registrazione o dal suo cognome. 
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Ingresso: il cognome di una persona o il numero di registrazione. 
Uscita: l'indirizzo di questa persona. 


Analisi: 


La ricerca per cognome viene fatta comparando un cognome alla volta. Atten- 


zione che vi possono essere più persone con lo stesso cognome 


Ingresso f —_ -----_-_-_- Ingresso del cognome o 
del numero di registrazione. 


Controllo se in ingresso 
è stato dato il numero 
| ---- di registarzione. 


= ---- “| Ricerca del nominativo 
nel fite. 


anno Lettura nel file 
dell'indirizzo del 
nominativo cercato. 


Visualizzazione 
dell'indirizzo. 


| 
a e 


vuole cercare un 
altro indirizzo. 


SECONDA PARTE 
PROGRAMMI 


ESERCIZIO 1.2 


104° HOME : VTRE S 
2A IMPUT "QUALE TITOLO? "; T$ 
ZA IF LEN CT$) > 40 THEN PRINT 


"TROPPO LUNGO!": GOTO 29 
469 HOME : VTRE 19 
SO HTAB 21 - LEN CT$) / 2 


60 PRINT T$ 
PA VTAB 20: END 
Commenti: 
30: se il titolo è più lungo di 40 caratteri, ne viene richiesto un altro. 
50: si prende la colonna di mezzo dello schermo (21) a cui si sottrae metà 
della lunghezza del titolo. 
Esempio: titolo APPLE II 21 metà dello schermo 
—8/2 metà della lunghezza 
17 
70: VTAB 20 evita la riapparizione del cursore sulla linea successiva al 


titolo. 


ESERCIZIO 1.3 


104 HOME 

0 INFUT “QUALE” IL VOSTRO NOME 
7 ";M$ 

300 INFUT “QUALE” IL VOSTRO ANNO 
DI NASCITA? ";R 

40 PRINT 

59 PRINT "ELON GIORNO "; N$ 

66 PRINT "NON DIRO” A NESSUNO CH 
E HAI "(192 - Ri 

70 PRINT" ANNI' CIRO" 

SM END 


61 


Commenti: 
Variabili: 


N$ - nome 
A - anno di nascita 


40: salta una linea per facilitare la lettura. 
60: 1982 - A è l’età; (sostituire eventualmente 1982 con un nuovo anno). 


ESERCIZIO 1.4 


159° HOME 
20 INPUT "DAT LN NUMERO? "; N 
3A INPUT "GUALE PERCENTUALE? "; P 


4A PRINT 

SA DU = N+x Po 100 

€W PRINT "LA PERCENTUALE E”: ";D 
N 

dA PRINT "IL VALORE MAGGIORATO E 
“: "iN+ DN 

SA END 


Commenti: 
Variabili: 


N - valore numerico 
P - percentuale 
DN - valore percentuale 


50: calcolo del valore percentuale. 
70: visualizzazione del valore maggiorato con la percentuale. 


ESERCIZIO 1.5 


10 HOME 

29 VIRBE S 

39 INPUT “QUALE” IL VOSTRO NOME 
PG ME 

49 INPUT "QUANTO SPENDETE GIORNA 
LMENTE PER LA SPESA? ":D 
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4 HOME 

AU VIABS 

3 PRINT "Hi CAPITO "; N£ 

39 VIALE S 

160 PRINT “ALLORA ANNUALMENTE SP 
ENDETE CIRCA "DR" LIRE *" 

1168 PRINT 

129 PRINT 

128 YTRE 15 

149 PRINT "CLA MIA SPESA E° INVE 
CE ZERO LIRE..." 

159 END 


Commenti: 
Variabili: 


D - spesa giornaliera 
DA - spesa annuale 
N$ - nome 


50: calcolo della spesa annuale. 


ESERCIZIO 1.7 


190 HOME - VIRE SS 
ZA REM INGRESSO DEL NUMERO DA I 
NDOVINAFE 
SH INPUT “SURL E” IL RUMERO DA I 
NDOVIMARE «TRA O È 1900: 2?" 
iN 
A H=o INT CONI: ITNCGAORU I 


du 
1990 THEN 26 
45 
SA REMO INIZIO DEL GINO 
GA HOME 
70 PRINT 
89 INPUT "PROVA: "E 
99 IF E > N THEN PRINT "TRIUPPO 


ALTO!" GOTO 70 
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1009 IF E < N THEN PRINT "TROPPO 
BRSSO!": GOTO 70 
116 PRINT "ERAVO' HAI INDOVINATO 


120 END 


Commenti: 
Variabili: 


N - numero da indovinare 
E - valore prova 


40: il numero da indovinare è un intero tra 0 e 1000. Dopo averlo reso 
sicuramente intero (con N=INT(N)), viene controllato se è compreso 
nell’intervallo 0 - 1000, diversamente viene richiesto un altro valore. 

70: tra una prova e un’altra viene lasciata una linea vuota. 

110: se i due test precedenti sono falsi, allora il numero è quello cercato per 
cui viene stampato un messaggio finale. 


ESERCIZIO 1.8 


1A HoME 

2A INPUT “QUANTI DADI LANCIATE < 
DA 1A 602%; N 

ZA PRINT : IF N = 0 THEN END 

44 IFN<41 ORN> 6 THEN 20 

SA S= UG 

60 FORI=1T0N 

70 S=S+ INT CORND (>) x 6) + 
1 

GO NEXT 

SA PRINT "SOMMA = ";S 

100 PRINT : PRINT : GOTO 28 


Commenti: 
Variabili: 
I - contatore 


N - numero di dadi lanciati assieme 
S - somma dei dadi lanciati 
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30: se N=0 il programma si ferma; dopo una prova il giocatore può così 
proseguire o fermarsi. 

40: questa linea deve essere posta dopo la 30 se no il programma non si 
ferma per N=0. 


Attenzione: alla linea 50 la somma S viene posta inizialmente a 0 e poi, nel ciclo 
60-80, viene calcolata per il lancio di N dadi. 


ESERCIZIO 1.9 


104 HOME 

200 REM O @TINIZIALIZZAZIONE DELLE 
VARIABILI 

3A N = TNT CO RND 1) + 10013 

do C=@A 

56 REM INIFIO DEL GIOCO 

600 INPUT "PROVA O O@NE 

(ACcC=C4+1 

S IF E > N THEN PRINT "TROPPI 
ALTO": GOTO SA 

990 IFE CN THEN FFINT "TREPPAO 
BASSO": GOTO 56 

100 FRINT : PRINT 

119 PRINT "ERAVO' HAT INDOVINATO 

IN "Ci" PROVE" 
120 END 


Commenti: 
Variabili: 


C - contatore 
N - numero da indovinare 
E - prova 


30: la variabile N assume un valore intero tra 0 e 1001. Infatti RND(1) 
genera un numero a caso tra 0, compreso, e | non compreso. Moltipli- 
cando per 1001 si ottiene un numero tra 0 e 1001 (non compreso) di cui 
viene presa solo la parte intera. 


70: il contatore C viene ‘‘incrementato”’ di |. 
100: tra una prova e la successiva vengono lasciate due linee vuote. 
110: C contiene il numero di prove. 


ESERCIZIO 2.2 


144 
155 
160 


REM INGRESSO DEI DATI 

HOME : VYTRE S 

IMPUT “PREZZO METTO : "iP 

PRINT 

INPUT “COLICE IVA CA=7A, E317 

fiv C3LSAI 1 "5C$ 

REM RICERCA DEL VALORE 1VA 
IFOCE = "H" THEN CO = 7: GO0T0 
110 
IF C$ 
119 
IF C$ 
119 


"6" THEN C = 17. 6: GOTO 


“I THEN Co= 3: GOTN 


190 GOTO 49 


A REM CRLCOLO E VISUALTEZAZIO 


NE 
PRINT : PRINT 
PT=P+ Pt 100 
PT = INT CPT * 100) / 100 
PRINT "PREZZO LORDO : "PT 
END 


Commenti: 


Variabili: 


P - prezzo netto 


PT - 


prezzo lordo con IVA 


C - valore IVA 
C$ - codice IVA 


SO: 
130: 
140: 
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i codici IVA sono riportati nella stringa dell’istruzione INPUT. 
calcolo del prezzo lordo. 

arrotondamento a due cifre decimali: il numero viene moltiplicato per 
100 così che le due cifre che si vogliono conservare siano a sinistra del 
punto decimale (per esempio 6.7432 * 100 diviene 674.32). Prendendo 
ora la parte intera di questo numero, si perdono le cifre che non 
interessano (INT(674.32)=674). Dividendo infine per 100 si ritrova il 
numero voluto arrotondato a due cifre (6.74). 


Attenzione: il valore viene arrotondato ‘per difetto” con un errore tra 0 e | 
sull’ultima cifra decimale. Per ottenere un arrotondamento corretto è sufficiente 
scrivere: 

140 PT=INT(PT*100+.5)/100 


ESERCIZIO 2.3 
1A DIM PCIA) 


200 REM INGRESSO DEI DATI 

30 HOME 

4A FORI =1 TO 106 

59 PRINT “PREZZO ".1;" 

5A INPUT P13 

200 NEZTI 

SO PRINT 

9A INPIIT "CODICE IVA <A=?°%, E=1? 
fio CRETA) ",0£ 

9°: 

168 REM RICERCA DEL VALORE IVA 

105 

1104 IF C$ = "A" THEN Co = ?°0 GOTO 
150 

120 IF C$£ = "E" THEN C = 17.&0 GOTO 
150 

139 IF C& = "OC" THEN Co= 30 GOTO 
159 

149 GOTO 8A 

145 

159 REM CALCOLO 

160 FORI =1 TO 1A 

1729 PCI) = PAID + PiID £C 190 

159 PCI) = INT (PCI) + 198: 19 
(5) 

190 NEXT I 

195 : 

209 REM VISUALIZZAZIONE DEI FR 
EZZI 


219 FORI =1 TO 18 

220 PRINT "PREZZO "; Ti 

230 HTRE 30 - LEN € STR$ < INT 
CPCIYII): PRINT PCI) 

240 NEXT I 

CA END 
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Commenti: 
Variabili: 


I - contatore 

C - valore IVA 

C$ - codice IVA 

P(10) - tabella dei prezzi 


10: dimensionamento della tabella. 

40-70: ciclo d’ingresso dei prezzi. I dieci prezzi sono richiesti uno per uno alla 
linea 50. (L'istruzione INPUT “PREZZO”,I,P(1) sarebbe gravemente 
errata perchè I verrebbe richiesto come dato d’ingresso). 

160-190: calcolo dei dieci prezzi lordi che vanno a sostituire nella tabella i prezzi 


netti. 
210-240: ciclo di visualizzazione. 
230: l'allineamento sul punto decimale viene fatto visualizzando il prezzo a 


partire dalla colonna del punto, meno il numero di cifre davanti al 
punto stesso. Questo numero viene calcolato mediante la funzione 
LEN in questa maniera: LEN( STR$( INT(PREZZO))). 


Esempio: per 6454.54 LEN(‘‘6454’) è 4 
per 45.67 LEN(‘*45”’) è 2 


per cui la visualizzazione del primo numero inizia alla colonna 30-4=26 e quella del 
secondo alla colonna 30-2=28. 


ESERCIZIO 2.4 


Metodo 1 


46 DIM L$c106) 
59 READ N 

20 FORI = 41 TON 

40° READ L&CI) 

SQ NEXT I 

6A FORI = 1 TO N: PRINT L$CI): NEXT 


#9 END 

9 DATA ? 

90 DATA MELA, TAVOLA. VETTURA 
126 DATA ALBERO, CASA, SEDIA 
159 DATA ALIANTE 


Metodo 2 


4H 


DIM L$c100) 

FORI =1 TO 100 

READ L$c1) 

IF L$(1) £ > “FINE" THEN NEXT 
I 


SGM=I-1 


6A 


0 

190 
120 
150 
S00 


FOR I = 1 TO N: PRINT L$CI): NEXT 


END 
DATA MELA. TAVOLA, VETTURA 
DATA ALBERO. CASA, SEDIA 
DATA ALIANTE 
DATA FINE 


Commenti: 


Variabili: 


I - contatore 
N - numero di parole contenuto nella lista 
L$(100) - tabella delle parole 


Attenzione: i due metodi sono diversi nel modo come terminano la loro esecuzione. 
Il primo determina subito il numero di elementi nella lista con READ N a cui 
corrisponde DATA 7. Il secondo invece opera sino a che si trova la parola FINE’ 
che noi abbiamo posto alla linea 500 con DATA FINE. 

La linea 50 del secondo metodo è necessaria per determinare il numero di elementi 
della lista. 


ESERCIZIO 2.5 


10 
2A 
30 


DIM N&cso:. Pecsao 
REM INGRESSO DEI DATI 

FERD N 

FORI=A1 TON 

READ N$(1), P$CI? 

MEVT I 

HOME : VTAB 5 

INFUT “COGNOME DA CERCARE ;"; 
N$ 


i PRINT : INPUT "NOME |":P£ 

95 PRINT : PRINT 

1049 REM RICERCA 

119 FORI=1T0N 

120 IF N$ = N$CI> AMD P$ = P$CI) 
THEN PRINT P$£:" "iN$i" E 
“ NELLA TABELLA": GOTO 156 

13M NEXT I 

146 PRINT Pé:" "NS" NON E” N 
ELLA TRBELLA" 


159 END 

155: 

590 DATA 5 

519 DRTA ROSSI. CARLO. MERZARIO. G 
FONANNI 

529 DATA FRACCI, CARLA. PASSONI. L 
UIGI 


339 DATA DORIA, ANDREA 


Commenti: 
Variabili: 


I - contatore 

N - numero delle persone 
N$ - cognome da cercare 
P$ - nome da cercare 


N$(50) - tabella dei cognomi 
P$(50) - tabella dei nomi 


30-60: lettura dei cognomi e dei nomi con il primo metodo dell’Esercizio 2.4. 

120: se viene trovato un cognome e un nome eguali, a quelli nella lista, viene 
visualizzato un messaggio di conferma e poi il programma salta alla 
linea 150 dove si ferma. Diversamente viene analizzato un altro nomi- 
nativo (NEXT 1). 

140: se tutti i nominativi sono diversi, viene dato un messaggio di avviso. 


Attenzione: N$ e N$(1) sono due variabili diverse. La prima è una variabile di 
stringa, la seconda rappresenta invece un elemento di una tabella di stringhe. 
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ESERCIZIO 2.6 


10 DIM D‘108) 

29 HOME 

30 INPUT "QUANTI NUMERI VUOI DAR 
E (MAX 190) ? ";N 

40 PRINT 

SA IFN1 0RN > 100 THEN 30 

6A. REM INGRESSO DEI DATI 

200 FORI=1 TON 

90 PRINT "NUMERO "; I; 

98 INPUT" ";DCI) 

1009 NEXT I 

105 : 

119 REM FICERCA DEL MIN E DEL M 
AX 

120 MI = D0LI:MA = DIL) 

150 FORI=1 TON 

4490 IF MI > DeId THEN MI = Del) 

14509 IF MA < DEID THEN MA = DUI 

160 NEXT I 

165 : 

1729 REM VISUALIZZAZIONE 

159 HOME : VTABS 

190 PRINT "MASSIMO :- “(MA 

200 PRINT "MINIMO - "MI 

2414 END 

Commenti: 

Variabili: 


I - contatore 
N - numero di elementi nella tabella D(100) 


MI - 


MA 


valore minore 


- valore maggiore 


D(100) - tabella di numeri 


130-160: tutti gli elementi della tabella vengono confrontati con MI e con MA. 


Se un elemento è più grande di MA, allora viene posto lui in MA. Se 
invece un elemento è più piccolo di MI, viene allora posto in MI. 
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Attenzione: sarebbe possibile scrivere: 
130 FOR I=2 TO N 


perchè non è proprio necessario confrontare il primo elemento della tabella con MI 
e MA che già lo contengono. Ma in tal caso si avrebbe un errore per tabelle che 
hanno un solo elemento (N=1). 


ESERCIZIO 2.7 


1 DIM Néc1, 50) 

26 HOME 

SU INPUT "QUANTE SONO LE PERSONE 
(CA 15M ? "N 


409 PRINT 

Sf IFN 1 OR N > SU THEN :09 
SA 

24 REM INGRESSO DEI DATI 

0 FORI=A1A TON 

9A PRINT “PERSONA "1; " 

99 INFUT " NOME 1 NG M$C1, 1) 


1690 INPUT " COGNOME : ";N$0, TO 


118 PRINT : NEXT 

115: 

129 REM RICERCA 

12GM=1 

146 FORI=1 TON 

150 IF N$c0,1) = N60, M) AND N$C 
1,1) < N$(1,M) THENM = I 

160 IF N$C0,I) < N$C0.M> THEN M = 
1 

1709 NEXTI 


150 REM VISUALIZZAZIONE 

496 HOME : VTAB 5 

200 PRINT "LA PRIMA PERSONA IN Q 
RDINE ALFABETICO" 

219 PRINT "E? QUELLA CON NUMERO 
"im 

229 PRINT : PRINT M$c1.M);" ";N 
$(6, M) 

259 END 


Commenti: 

Variabili: 

I - contatore 

N - numero di persone 

M - indice della prima persona in ordine alfabetico 

N$(1,50) - tabella dei cognomi (N$(0,x)) e dei nomi (N$(1,x)) 


80: viene visualizzato il numero della persona in ingresso. 


Attenzione: viene utilizzata una tabella a due indici; il primo indice è 0 per i cognomi 
e |] per i nomi mentre il secondo indice indica i vari nominativi. 


cognome 1 


cognome 2 


DOD uUu a VU = 


0 
[pome 1 
rome? | 
EL 
| 
| 
| 
ri 


N$ (1,50) 


E’ possibile unire le istruzioni 150 e 160 in una sola: 


150 IF N$(0,I)<N$(0,M) OR ( N$(0,1)=N$(0,M) AND N$(1,1)<N$(1,M) ) THEN 
M=I 


ESERCIZIO 2.8 


Metodo 1 


108° DIM TACSO). TECSO) 

204 REM INGRESSO DEI DATI 

39 READ NI 

44 FOR I = 1 TO NI: READ TREID: NEMT 


I 
45 : 
569 REM ORDINAMENTI 
GO NS = GU 
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204 REM RICERCA DELL'ELEMENTO PI 
U” GRANDE 

rà REM DELLA PRIMA TREELLA 

si N° = NZ +1 

IG M=1 

160 FORI=41 TONI 

1409 IF TACI)I > TRMI THEN M = I 

129 NEXT 


156 FEM INSERIMENTO NELLA SECON 
DA TABELLA 

1404 TECNZI = TACMI 

14509 THCM: = - 1 

1600 1F NZ ©“ MI THEN sua 


176 REM VISUALTEZAZIONE 

159 FOR I = 1 T0 N2: PRINT TECID 
:- MEXTI 

198 END 


SA BEATA 1a 
919 DATA 2.19, 15. 1900. 5. 407, 145 
SP: 99 6. PL 


Metodo 2 


10 DIM TACSH). TECSHOI 

20 REM INGRESSO DEI DATI 

SM READ Ni 

44 FOR I = 1 TO NI: READ TACIOI: NEXT 
I 


56 REM ORDINAMENTO 
E0 N2 = @ 


#69 REM RICERCA DELL'ELEMENTO PI 
U” GRANCE 

va REM DELLA FRIMA TABELLA 

So NZ = N° +1 

359 M=1 

1689 FORI = 1T0NM1 
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110 IF TACID > TAM) THEN M=1 

120 NET 

129: 

159 REM SCAMBIO DEGLI ELEMENTI 

149 TECN2) = TACMI 

159 IF M< Ni THEN FORI=Mt+ 
1 TO NI:TACI — 1) = TACID: NEX 
I 

1609 NI = NL - 1 

170 IF NI > G THEN 26 

1075: 

150 REM VISUALIZZAZIONE 

190 FOR I = 1 TO N2: PRINT TECI) 


: NEXTI 
209 END 
209 : 
S69 DATA 12 


216 DATA 3,10.15, 1000, 5, 477, 345 
1 30-90 bi. 74, 67 


Commenti: 
Variabili: 


I - contatore 

N1 - numero di elementi della prima tabella 

N2 - numero di elementi della seconda tabella 

M - indice dell'elemento più grande della prima tabella 


TA(50) - prima tabella: numeri da ordinare 
TB(5S0) - seconda tabella: numeri ordinati 


Attenzione: i dati sono letti con il primo metodo dell’Esercizio 2.4. 


L'istruzione DATA della linea 500 indica il numero degli elementi da leggere, 
mentre la DATA della linea 510 contiene i numeri da ordinare. 


ESERCIZIO 2.9: 


10 DIM N$C1. 59) 

20 REM INGRESSO DEI DATI 

SA HOME : INPUT "QUANTE PERSONE 
?25;N 
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zo PRINT 

490 IFN< 6 OR N > 50 THEN 36 
SA FORI=1 TON 

69 PRINT "PERSONA ": I 

(0 INPUT "COGNOME : “:N$c0, 1) 


309 INPUT "NOME : "INSCL. I) 
939 PRINT : NEXT I 

ga: 

109 REM ORDINAMENTO 

118 P=1 

128 M=P 


159 FORI=P TON 

146 IF N$c0,I) < N$C6,M> OR CN$‘ 
G, I) = N$C9,M? AND Néc1. 1) < 
N$(1.M>5) THEM M= I 

159 NEXT I 

160 N$ = N$C0, P):P$E = N$CL,P>) 

170 N$CA, PI = N$C0, MI N61, P) = N 
$C1, M) 

159 N$C0, M>) = N$(N$C1,M) = Pé 

199 P=P+t 1: IFPXKN THEN 126 

195: 

204 REM VISUALIZZAZIONE 

219 FORI = 1 TON: PRINT N$c1.I 
I, N& CA. ID: NESTI 

2208 END 


Commenti: 
Variabili: 


I - contatore 

N - numero delle persone 

P - indice a partire dal quale i nominativi sono ordinati 
M - indice della prima persona in ordine alfabetico 
N$,P$ - variabili 


N$(1,50) - tabella dei cognomi e dei nomi (N$(0,x) sono i cognomi e N$(1,x) sono i 
nomi). 


120-150: ricerca della prima persona in ‘ordine alfabetico successiva alla 
P-esima. 
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160-180: scambio della P-esima persona con la M-esima. 


ESERCIZIO 2.10 


10 
20 
30 


40 : 


50 


60 
70 


DIM N$C1, 50) 

READ N 

FOR I = 1 TO N: READ N$C0, I), 
N$C1, I): NEXT I 


REM INGRESSO DEL NOMINATIVO 
DA AGGIUNGERE 

HOME : VTAB S 

INPUT “NOMINATIVO DA AGGIUNGE 
RE €BATTERE “FINE” PER TERMI 
NARE): "; N$ 

IF N$ = "FINE" OR N = S0 THEN 
END 

PRINT : INPUT "NOME ? ":P$ 


REM RICERCA 
FORI = 1 T0N 

IF N$ < N$CO. I) OR CN$ = N$( 
9, I) AND P$ < N$C1, ID} THEN 
189 

NEXT 


REM AGGIUNTA ALLA FINE DELL 
A TABELLA 

N$COLN + 19 = N$:N$CI.N + 1) = 
P$ 

GOTO 230 


REM INSERIMENTO 

FORJ=N TOI STEP -1 
N$CA.J + 1) = N$CU, DI INSCL. I + 
1) = N$(1,J) 

NEXT I 
N$ (0. ID = N$:N$C1. I) = P$ 
N=N+1 

HOME : VTAE 5 

FOR I = 1 TO N: PRINT N$C0,I 
Yo NEC1, ID: NEXT I 
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269 PRINT : FFINT : GOTO 70 

265 : 

599 DATA S 

SLA DATA AMALDI. UGO. FERMI, ENRIC 
0, MAJORANA. ETTORE 

524 DATA PEANO. GIUSEPPE, RIGHI, A 
UGUSTO 


Commenti: 
Variabili: 


I,J - contatori 
N - numero delle persone 


N$,P$ - cognome e nome della persona da inserire 


N$(1,50) - tabella dei cognomi e dei nomi (N$(0,x) sono i cognomi e N$(1,x) sono i 
nomi). 


70 e 260:  l’utente può inserire più nominativi; per terminare deve battere ’FI- 
NE”. 

80: la tabella non può contenere più di 50 nominativi. 

110-130: se la posizione d’inserimento non è l’ultima, il programma prosegue 
alla Hinea 180ela variabile I contiene tale posizione. Nel caso invece che 
la posizione sia l’ultima il ciclo termina ed il programma prosegue alla 
linea 140. 

230: N viene incrementato perchè la tabella contiene una persona in più. 


ESERCIZIO 3.1 


168 HOME : VTABS 
20 INPUT “EATTETE UNA LINEA : "; 


R$ 

0° IF RIGHTS cA$, 1) =" " THEN 
A$ = MID$ <A€,1. LEN (R$) - 
1): GOTO 30 

460 PRINT “C"; A$;")" 

29 END 
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Commenti: 


30: se l’ultimo carattere di A$ è uno spazio, allora esso viene soppresso 
prendendo tutti i caratteri di A$ salvo l’ultimo ( MID$(A$,1,LEN(A$)- 
1) ); la prova viene poi ripetuta sino a che si hanno spazi in coda alla 
linea. 


Esempio: se A$=**LIBRO”' si ottiene: 
A$=MID$(A$,1,5)=‘*LIBRO” 


40: A$ viene visualizzata tra parentesi per confermare che glispazi in coda 
sono stati tolti. 


Attenzione: quando viene eseguita una istruzione INPUT, gli spazi dati all’inizio 
della risposta non sono presi in considerazione. Per esempio se battete “GIOR- 
NO”, alla variabile corrispondente viene attribuito il valore “GIORNO”. 


È possibile scrivere: 
30 IF RIGHTS$(A$,1)=‘ ‘”’ THEN A$ = LEFT$ (A$,LEN(A$)-1) : GOTO 30 


ma nel caso AÎ$ sia una stringa vuota si commetterebbe un errore. E° infatti possibile 
scrivere MID$(A$,1,0), che da la stringa vuota, ma non è invece possibile scrivere 
LEFT$(A$,0). 


ESERCIZIO 3.2 


19 HOME : YTRE 5 

206 INFUT “"EGATTETE UNA LINEA : "; 
R$ 

39 1I=1 

49 IF MID* CRA$.I.1) =" “ THEN 
A$ = MID$ CA$.1.I - 1) + MID$ 
CR$, I + 1, LEN CA$I): GOTO 4 


Q 

S9I=ITIt+1: IFI< = LEN cA8) 
THEN 40 

60 PRINT "C":A$; ">" 

‘9 END 


Commenti: Tutti i caratteri della stringa sono confrontati uno per uno con lo spazio 
(linea 40). Se l’I-esimo carattere è uno spazio, esso viene soppresso e il programma 
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rimane sulla stessa linea 40 poichè l’I-esimo carattere è ora cambiato. Diversamente 
I viene incrementato. Il processo continua sino a che I diviene maggiore della 
lunghezza della stringa. 


Attenzione: sconsigliamo di utilizzare il ciclo: 


30 FOR I=1 TO LEN(A$) 
40... 
SO NEXT I 


perchè LEN(A$) sarebbe calcolata solo per il valore iniziale della stringa. 


ESERCIZIO 3.3 


15° HOME : VIRES 

ci INPUT “BATTETE UNA PAROLA "RA 
$ 

20 IF LEN cR$) < 2 THEN 70 

46 FOR I = LEN CA) - 1 T0 1 STEP 


- 1 _ 
SU H$ = MID$ CA$. 1,1) +" “ + MID$ 
(A$,I +1) 
EA MEXTI 
0 PRINT H$ 
9 END 
Commenti: 
30: è impossibile inserire degli spazi se la lunghezza della parola è 0 o 1. 


Attenzione: gli spazi sono aggiunti a partire dalla fine della stringa perchè la sua 
lunghezza va aumentando. Sarebbe possibile scrivere: 


40 FOR I=1 TO LEN(A$)*2-2 STEP 2 
50 ... 
60 NEXT I 


ESERCIZIO 3.4 


16 HOME : YTAB S 
20 INPUT "EATTETE UNA FRASE ";P$ 


24 PRINT 

49 PRINT P$ 

SH PÉ = MID$ (P$,2) 

608 1F O LEN €P$ > 6 THEN 46 
PA ENE 


Commenti: 
50: MID$(P$2) restituisce tutti i caratteri di P$ salvo il primo. 


ESERCIZIO 3.5 - 


15 HOME : VTABS 

ZA INPUT "BATTETE UNA FRASE (";P 
$ 

30 REM INIZIO DEL CICLO 

49 PRINT P$ 

SA FORI =1 TO LEN cP£) 

MO IF MID$ (P$.I1.1) =" " THEN 
P$ = MID$ CP$.I + 13: GOTO 


Commenti: 
Variabili: 


I - posizione del primo spazio di P$ incontrato da sinistra 
P$ - variabile 


ESERCIZIO 3.7 


Metodo 1 


19 HOME : VTRBS 

20 INPUT "LINEAR (40 CARO MARK: |. 
";L$ 

30 IF LEN (L$ > 40 THEN 20 


49 REM CREAZIONE DELLA LINER DI 
44 CARATTERI 


60 LE = LE + MIDS$ (S$.1.40 - LEN 
(L$3) 


Ss: 

"8 REM SCORRIMENTO 

SO VTAB 15: PRINT L$ 

95 1$ = RIGHT$ CL1$.39) + LEFT$ 
CL$. 1) 

1668 FORI =1 TO SO: NEXT I 

119 GOTO 80 


Commenti: 

50-60: la linea viene completata con dei punti perchè contenga 40 caratteri. 
90: il primo carattere della linea viene messo nell'ultima posizione. 

100: ciclo d'attesa. 

Metodo 2 


46 HOME : VIRES 

20 INPUT "LINEAR (46 CARRO MARI : 
";L$ 

360 IF LEN “L$> > 46 THEN 2A 

zD 

39 FEM SCORRIMENTO 

St FOR I =: 48 T0 1 STEP - 1 

GI TARE 15: PRINT MID$ €L$, 41 - 
ID: TABS DD: MIDI CLÉ$. 1. 48 - 
I); SPLC 49) 

[eta 

#9 PRINT 

SA FOR TI= 1T0 SA: NEXT I 

SAOHESTI 

4689 GOTO SA 


Commenti: 
60: visualizzazione, a partire dalla prima colonna dello schermo, della 


parte della linea che ha superato, il bordo destro, poi dalla colonnal in 
avanti l’inizio della linea sino al bordo destro. 
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ESERCIZIO 3.8 


168 HOME : VIABS 

2A PRINT "BATTETE UNA FRASE NEGA 
TIVA ." 

30 PRINT : INPUT A$ 

49 REM INIZIO DEL CICLO 

45 REM DI CUNTEROLLO 

30OI=1 

Ed IF MID ch$. 1.5) =" NON “ THEN 
A$ = MID$ ‘R$,1,I) + MID$ 
(R$. I +3) 

9A REM TEST DI FINE DEL CICLO 

250 REM DI CONTROLLO 

1640 I = I +1: IFI << LEN CA$) - 
4 THEN 69 

119 IF LEFT CR$.94) = “NON " THEN 
A$ = RIGHT$ CR$, LEN CA$) - 


4) 
120 PRINT : FRINT "LA FRASE INP 
OSITIVO E° - " 


39 PRINT AR$É 
Sta END 


Commenti: 
Variabili: 
I - contatore 


A$ - variabile 


60: viene ricercata la parola *NON'’ per essere soppressa e rendere il senso 
della frase affermativo. 
110: si ricerca anche NON all’inizio della frase. 


Attenzione: non abbiamo utlizzato un ciclo FOR-NEXT per la stessa ragione 
indicata nell’Esercizio 3.2. 


MIDS$(A$,1,1) da i primi caratteri di A$ sino all’I-esimo incluso. 
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ESERCIZIO 3.9 


190 HOME : VTRE9 

20 INPUT "DAI UNA STRINGA DI CAR 
ATTERI : ":C$ 

36 PRINT : PRINT 

49 INPUT “E I CARATTERI DA INSER 
IRE : "1% 

SO INPUT "NELLA POSIZIONE : "iP 

GA IFPCOORP > LEN CC$ THEN 
SA 

70 C$ = MID$ (C$,1,P) + Ig + MID$ 
(C8,P + 1) 

5A PRINT : PRINT 

96 PRINT "LA STRINGA COMPLETA E” 


400 PRINT C$ 
260 END 


Commenti: 


60: controlla la validità della posizione d’inserimento data in ingresso. 
70: inserimento. 


Esempio: da ‘APPLE II” con I$=*PLUS” e P=6, 
si ottiene: i 

MID$(C$,1,P)=“APPLE" e 

MID$(C$,P.1)=“II" 


ESERCIZIO 3.10 


149. HOME  YTRES 

ZIA TIRPUT "ERTTETE UNA LINEAR SIT 
ESTO (SR CAP OMASIO".1E 

QAGOTIF LE = """ OF LEN “L$5 > SA THEN 
201 

4 FERINT . PRINT “EATTETE LA PAR 
OLA DA TOGLI IEFF E GUELLA DR 
METTERE" 

45 PENRT 

SA INPUT “FAROLA DA TOGLIERE —" 
R$ 
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MPT "PRESA DA METTERE NM 
$ 

IFOOLEN <Pfi > SA OF LEN cM£ 
3 23 Sa THEN 4h 


4 REM THIFIO CELLE RICERCA 
1 A1FO= WE = LEN (F83:M = 
LEN “M£* 


IFOO MIG$ Lf. T.M I > RÉ THEN 

SA 

Af=i 

PRINT 

TFOLEM <L£i - R+dil4 > SA THEM 
PRINT “SOSTITUPIONE TIFOSE) 

BILE!" GOTO 2356 


FEMO CONFERMA 
PRINT MIGE GLRI.I- 13: 
INVERSE PRINT FE. NOFMAL 


PRINT MISE (Lf. { + R1 

PEINTO PRINT "CONFERMATE LA 
SOSTITUSTONE (SNO? *. 

GET R$ PRINT SE. IF R$ 
"e" RAND R£ DO i; "N" THEN PRINT 
CHP$ (73% GOTO 150 

IF R$ = "N" THEN ZIA 

{$ = MIDE LE 1I - 1° + M£ + 
MIDI LEI +F1 

I=IT+1. Ii = LEN <L$ 
 - R+ 1 THEN SG 


FEMO VISUAL TSIAZIONE 

HOME VTRE SS 

IF F = © THEN PRINT "LR PAR 
OLA NON E” NELLE LINEA": PRINT 


PEINT L$ 
EMO 


Commenti: 


Variabili: 
I - contatore 

F - ‘‘flag’’ (0 se la parola da togliere non è nella linea) 
R - lunghezza di R$ 

M - lunghezza di M$ 


L$ - linea di testo 
R$ - parola da togliere 
M$ - parola da mettere 


30: 


80: 
100: 


110: 


140-160: 


180: 


320: 


se la linea non contiene alcuna parola, la sua elaborazione non è 
possibile. 

inizializzazione del contatore, del flag e della lunghezza delle parole. 
controllo se la parola da togliere si trova nella posizione I; se negativo 
allora il contatore I viene incrementato alla linea 210. 

se positivo, il flag viene posto eguale a | per indicare che la parola 
esiste. 

visualizzazione della linea con la parola da togliere in inverso. Se la 
parola è presente più volte essa viene sostituita in più fasi successive. 
se l'utente non risponde con So N, allora il calcolatore emette un suono 
( PRINT CHR$(7) ). 

se il flag F non è rimasto eguale a 0, vuol dire che la parola è stata 
trovata ed è stàta eseguita la linea 110. 


ESERCIZIO 3.11 


HOME 


INPUT "DATE UNA LINER DI TEST 


O 


";L$ 


IF L£ = "" THEN ZA 


REM CREAZIONE DELLA STRINGA 


INVERSA 
I € = d0 da 


FOR 1 
1 


= LEN <L$> TO 1 STEP - 


I£ = I$ + MID$ <L$,D,1D: NES 


I 


REM CREAZIONE DELLA STRINGA 
ALEATORIA 


SA TE = L£.A$ = "" 

190 FORI =1 TO LEN <L$) 

1410 A = INT € FND 1) + LEN STE 
I) +1 

176 A$ = R£ + MIDI |T£.A.13 


130 T£ = MID$ <T$.1.A - 1) + MID$ 
IAA +10 

148 NEXT I 

145: 


159 REMO VISURLIZZAZIONE 
160 HOME - VTRE S. PRINT L$ 
120 PRINT : PRINT I$ 

180 PRINT : PRINT R$ 

209 END 


Commenti: 
Variabili: 


I - contatore 
A - posizione aleatoria di una lettera in T$ 


L$ - linea di testo 
I$ - linea inversa 
A$ - linea aleatoria 
T$ - variabile 


90: la linea di testo viene ricopiata in T$ per potere essere elaborata senza 
perdere l'originale. A$ viene inizializzata. 


110: INT(RND(1)*LEN(T$))+1 da un numero aleatorio tra | e la lunghez- 
za di T$. 


120-130: ilcarattere A-esimo di T$ viene aggiunto ad A$ poi è soppresso da T$. 


Attenzione: è possibile scrivere: 


60 FOR I=1 TO LEN(L$) 
70 I$=MID$(L$,1,1) + I$ : NEXTI 
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ESERCIZIO 3.13 


1? HOME VTIRES 
20 PRINT "ERTTETE UMA FFRSF “FOT 
ETE USARE ANCHE LE VIRGOLE E 
I DUE PUNTI: n 


2A PE = "I = @ 

40° PEM INGRESSO DELLA FRASE 

SA GET A$: PRINT AS. 

GO IF ASC CA8) < > S THEN 190 
7A. REM "FRECCIA A SINISTRA" 

29 IFIYATHENI=1- 1:P$ = 

MIC ‘P&.1. 1% 
SA PRINT" “i: CHR£ (St: GOTO SA 


1968 1FO ASC CA$5 < > 135 THEN P$ 

= P£+A£.I T+1 GOTOS 
Di) 

119 FEM "FETUEN" 

158. PRINT FRPINT 

45% PRINT "LA FRASE E‘ Ù 

149 PRINT P£ 

1501 END 


Commenti: 
Variabili: 
I - numero di caratteri di P$ 


P$ - linea battuta alla tastiera 
A$ - un tasto battuto alla tastiera 


30: inizializzazione. 

80: non è possibile togliere un carattere a P$ se non ne contiene alcuno 
(I=0). 

90: prima di saltare alla 50, l’ultimo carattere viene cancellato dallo scher- 
mo. 

100: il carattere viene aggiunto alla fine di P$ (se diverso da RETURN). 


ESERCIZIO 3.14 


10 DIM T(56 

45 HOME : VTAB 3 

29 REM INGRESSO DEI DATI 

24 INPUT "QUANTI VALORI DATE <DA 
1A59)? "iN 

4A IFNZ41 OR N > SG THEN 20 

59 FORI =1 TON: PRINT "VALORE 
"; 1; 

9 INPUT TI): NEXT I 

5 REM CALCOLO DELLE PERCENTUAL 


39 FORI = 1 TO N:S= S + TAI): NEST 


99 FORI =41 TON:TC1D = TAI) 
S * 100: NEXT I 

160 HOME : VTRBS 

116 FORI=17T0N 

129 PRINT "VALORE "; I" : “; INT 
(TCI) * 100 + 5) / 1090;" 2" 


130 NEXTI 
150 END 


Commenti: 
Variabili: 
I - contatore 
N - numero di valori 
S - somma dei valori 
T(50) - tabella dei valori 
Per calcolare le percentuali, si calcola dapprima la somma di tutti i valori (linea 


80), poi si divide ogni valore per questa somma e si moltiplica per 100 (linea 90). I 
risultati sono arrotondati a due cifre decimali (linea 120). 


ESERCIZIO 3.15 


10 
20 
Ki: 
340 


SA 
66 


‘09 


9: 


30 

Id 

106 
110 
120 
130 
140 
1519 
164 


179 


DIM L“261. T$(39) 

REM INGRESSO DEL TESTO 

HOME : VTAB SS 

INPUT “NUMERO DELLE LINEE DAR 
1A 30): "N 

IFN<1 OR N > 36 THEN 40 

FOR I = 1 TO N: PRINT "LINEAR 
", li “ n 


INPUT T$CI): NEXT I 


FEM ELABORAZIONE 
FORI =1 TO 26 
L$ = CHE$ (64 + II 

FORI=1 TON 

FOR K = 1 TO LEN CT$CJ)) 

IF MID$ CT$CJ),K.1) = L$ THEN 
LCD = LCD +1 

NEST K,J.1 


S=0 


FORI =1T026:S=StLCI) 
: NEXT 
FOR I 


= 6:11) = INT 
CLCI) 


1702 
S * 10000) / 100: NEXT 


175: 


100 
190 
UA 
214 


90 


REM VISUALIZZAZIONE 

PRINT 

FOR I=1 TO 13 

PRINT CHR$ C(E4 + Td; " :"; TABC 
e - LEN € STR$ € INT CLCIDI 
Ii LETI; 

PRINT TABC 26); CHR$ (77 + 
I); "o"; TABC 27 - LEN € STR$ 
CO INT CLCI + 120000); LCI +1 
3) 

NEXT I 

END 


Commenti: 
Variabili: 


I,J,K - contatori 
N - numero di linee 
S - numero totale di lettere in T$(30) 


LS - lettere dell’alfabeto 
L(26) - tabella delle percentuali di presenza delle lettere dell'alfabeto 


T$(30) - tabella contenente le linee di testo 


100: CHRS(65) da la lettera A; CHR$(64+1) da quindi la I-esima lettera 
dell'alfabeto. 
90-140: con i tre cicli nidificati (linea 90 per le 26 lettere dell'alfabeto, linea 110 


per tutte le linee del testo e linea 120 per ciascun carattere di ogni linea) 
viene cercata ogni lettera dell’alfabeto. Ogni volta che una lettera è 
presente viene incrementato L(I). La tabella L(I) contiene dunque il 
numero di volte che la I-esima lettera appare nel testo. 


160: calcolo del numero totale di lettere. 


170: calcolo delle percentuali arrotondate a due cifre decimali. 


210-230: visualizzazione su due colonne delle lettere dell'alfabeto e delle percen- 
tuali corrispondenti allineate sul punto decimale. 


ESERCIZIO 3.16 


10 DIM M$C12) 
29 FOR I = 1 TO 12: FERD M$(I13: NEXT 


280 HOME : VITAE S 
400 INPUT "GIORNO CDA 1A 3107"; 


J 
59 INPUT "NUMERO DEL MESE CDA 1 
A 129)? ";M 


60 INPUT "ANNO? ": A 

#0 IFJC10R1I5 
M > 12 THEN 20 

SA PRINT : PRINT 

dA DE = STR (JI +" " + MEM) + 
"+4 STR$ €H) 


21 ORM<1 OR 
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1045 PRINT D$ 

150 END 

200 DATA GENNAIO. FEBERATO. MARZO 
» APRILE, MAGGIO 

219 DATA GIUGNO. LUGLIO. AGOSTO, S 
ETTEMERE 

229 DATA OTTOBRE, NOVEMERE. DICEM 
BRE 


Commenti: 
Variabili: 
I - contatore 


J - numero del giorno 
M - numero del mese 


A - anno 

D$ - data 

M$(12) - i dodici mesi 

20: attribuzione dei dodici mesi a M$(12). 
70: verifica della validità delle risposte. 
90: creazione della data. 


ESERCIZIO 3.17 


19 HOME 

20 PRINT | INPUT "DATA CES: 11 G 
EHMAIO 1929)? "| DE 

S4 FEM CALCOLO DEL GIORNO 

46 I = VAL Cb$>:; IF I < 32 THEN 


70 
56 PRINT "ERRORE ‘*'"- GOTO 20% 
SS: 
€ REM RICERCA DEL MESE E DELL” 
ANNO 


fe@ FORI = 1 T0 LEN CD$): IFO MIDI 
CO$, 1.13 < >" " THEN NEXT 
GUTO 59 
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$ = MID$ CD$&,I +1) 

dA FORI =1T0 LEN CD$). IF MIDE 
(D$£. 1.13 € > " " THEN NEXT 
“ GOT SA 

100 fi = VAL CC MID$ CD$. I +17) 

119 D$ = LEFT$ €D$.I - 13 

115 

1209 REM FICERCA DEL NUMERO DEL 
MESE 

159 FORM= 1 TO 12: READ R$ 

1490 IF R$ < > D$ THEN O NEST - GO0T0 

5A 


459 REM VISUALIZZAZIONE DEL RIS 
ULTATO 

1600 PRINT Ho"2"iMi "2%; H 

178 END 


269 DATA GENNAIO. FEBBRAIO, MARZO 
«+ APRILE, MAGGIO 

244 DATA GIUGNO. LUGLIO. AGOSTO, S 
ETTEMBRE 

2204 DATA OTTOBRE. NOVEMBRE. DICEM 
BRE 


Commenti: 
Variabili: 


I - contatore 

J - numero del giorno 
M - numero del mese 
A - anno 


D$ - data 
A$ - variabile 


40: i giorni non possono superare il numero 31. 


70: ricerca del primo spazio in D$ (stesso metodo dell’Esercizio 3.5). Nel 
caso non si trovi alcuno spazio, il programma ritorna alla linea 50. 
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80: soppressione del numero del giorno (che è già dato da J). 


90 : ricerca dello spazio che separa il mese dall'anno. 
100: l’anno sì trova dopo questo secondo spazio. 
110: soppressione dell:anno, solo il mese rimane nella satringa D$. 


ESERCIZIO 4.2 


LA ETE = AOEAGIOtalotatatotatotaatae oe 
AAA ooo REMO 40 
STELLE 

20 HOME : VTABS 

3% INFUT “DATE UN NUMERO CTRA 1 
E 24): LL 

49 IFL<1O0RL > 24 THEN 30 

50 INPUT “DATE UN NUMERO CTRA 1 


E 39: :C 
68 IFC<1 ORC > 39 THEN 50 
65 : 
76 HOME 
0 VIAEL 


99 PRINT LEFT$ CETS$S.C) 
100 FORI=1TO0L 

110 VTAB 25 - I: HTAB C 
129 PRINT "*", 

135 NEMI 

159 END 


Commenti: 
Variabili: 


I - contatore 
L,C - variabili 


90:. visualizzazione della linea di asterischi (o stelle). 
100-130: visualizzazione della colonna di asterischi (0 stelle). 


Attenzione: è possibile scrivere: 
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FORI=1T0C 
PRINT "#*"; 
NEXT I 

PRINT 


sd I, 
SCHhSS 


Non dimenticate in questo caso la seconda PRINT per poter tornare a capo sa- 
rebbe anche possibile scrivere: 


100 FORI=1T024-L 
119 VTRB I: HTAB C 


ESERCIZIO 4.3 


19° DIM Ne20) 

20 ET$ = NAatotatololoisfotaioototeooette 
NAIAEIOOARAORA AE 

HOME : VTAB SS 

REM INGRESSO DEI VALORI 

FOR I = 1 TO 20 

PRINT "NUMERO ";I;" (0-190)"; 


INPUT NCT) 

IF MCT) < 0 OR NCT) > 100 THEN 

60 

SR NEXT I 

199 REM VISUALIZZAZIONE DELL‘IS 
TOGRAMMA 

119 HOME 

120 FORI=1 TO 29 

130 PRINT MID$ CET$.1,NCI) / 10 
9 * 48) 

149 NEXTI 

1509 END 


EI SESS 


Commenti: 
Variabili: 


I - contatore 
ET$ - costante 


N(20) - tabella dei valori 


130: visualizzazione della linea di asterischi corrispondente all’I-esimo va- 
lore. 


Attenzione: non è possibile scrivere: 


130 PRINT LEFTS$S(ET$,N(I)/100*40) 


perchè questa linea provocherebbe un errore per un valore nullo di N(i)/100*40. 


ESERCIZIO 4.4 


dirt It Nea) 

SH MAME STAB 

2580 INPUT “GUANTI VPLORI (1-0701 © 
N 

4A IFORMOD1 DFB O SRO THEROTH 

ast FORT = 1T0RP 

SA PRINT "MUMEETO “0 p. SPOSTTIVO 
D, Mi, 

CAOOTNPUT N15 

Sto IPO Meli < 9 THEN GE 

IHOONEST I 

LASA REMO PICEROA DEL VALORE MASS 

Tu 

9G= HM 

2A FOR =1TON 

1390 IFG 7 NI THEN Go = Nel 

14980 MEST I 


1580 REMO VISUALIZZAZIONE DELL'1 
ZTOGFAMMA 

1590 HOME 

FO FORI=1T0N 

12380 IF INT “NIDO ? G* 24) = 0 THEN 
ZIA 

L990 FORT =1TO ND 2 Gt SJ 

2000 HTHE IU VYTRE 25 — IT: PRINT" 

4. 

HEST J 

MEST I 

VTRE 23: GET RF 

END 


pa 


fat Pa (nt ro 
» BI ., 
pov i a) 


A LI 
Rio 


Commenti: 

Variabili: 

I,J - contatori 

N - numero di elementi nella tabella N(30) 
G - valore più grande della tabella N(30) 
N(30) - tabella di valori 


110-140: stesso metodo del programma 2.6. 


180 : se non si devono visualizzare asterischi, il programma prosegue alla 
linea 220. 

190-210: visualizzazione della colonna di asterischi corrispondente all’I-esimo 
valore. 

230: attesa della battitura di un carattere, prima della fine, perchè l'arresto 


del programma fa risalire le linee. 


ESERCIZIO 4.6 


5 DIM NC1. 10) 

100 TEST : HOME : VITAE S 

15 REM INGRESSO DEI DATI 

0 FORI = 1 016 

39 FRINT "NUMERO "I; " cCPRIMOI. € 
SECONDO)" 

40 INPUT NcO, ID, Né4, ID 

SM IF NCR. Td < 0 OR N61, I: < dB THEN 


3A 

0 MEXTI 

ata) 

ed REM RICERCA DEL VALORE MAGGI 
ORE 

SA GE= O 

38 FORI=1T0 10 

160 IF Nea, DD > G THENG = Ne6G,I 
) 

14160 IF Nî1.ID > GTHENG = Ne4.I 
3 

1429 NEXT I 

125: 

#90 REM “VISUALIZZAZIONE DELLIS 


TOGEAMMA 
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146 GR 

1989 FORI = 17019 

1645 FOR J=06 T01 

165 COLOR= 2 + J 

00 IF INT HOT. ID #G%* 40) > 
0 THEN VLIN 239.40 - NC0L.ID 
Gt d0AfTI+t+24+7] 

4559 NEZI JI 

200 END 


Commenti: 


Variabili: 


I,J - contatori 
G - il valore più grande della tabella N(1,10) 


N(1,10) - tabella dei valori (N(0,x) è la prima serie di valori, N(1,x) è invece la 
seconda). 


10: viene dato il comando TEXT perchè lo schermo potrebbe essere in 
modo grafico. 

30-40: ingresso degli I-esimi valori separati da una virgola. 

165: colore 7 per la prima serie (J=0), colore 8 per la seconda (J=1). 

170: se c'è una colonna da disegnare (INT(N(J,1)/G*40)(0), allora bisogna 


tracciare una linea verticale di N(J,1)/G*40 “punti sulla colonna I*2, 
per J=0, e sulla colonna I*2,1, per J=1. 


Attenzione: è possibile scrivere: 
180 NEXT J 
190 NEXT I 


ESERCIZIO 4.7 


16 DIM Viso) 

200 TEXT : HOME . VIRES 

2A INPUT "QUANTI DADI GETTATE CD 
BAIA? "N 

49 IFNZA1AORN> è THEN 20 

50 HGR - HCOLOR= i 


SA REM INIZIO DEL CICLO 


“JJ 
i 
nm 
az: 
AN 


I = 1 TO ZU 


(e n] 
© A 
Lun 


LTON 
INT CORND CL) * 61 + 


a i 
a 
S 
LI) 
+ 


114 NEST J 

120 NES) = VCS) + 1 

1390 IF VCS) > 159 THEN 150 
1490 HPLOT St 5 V0S) 

459 NESTI 

20 END 


Commenti: 

Variabili: 

I,J - contatori 

N - numero dei dadi gettati 


S - somma dei dadi per un lancio 


V(36) - tabella delle somme(V(s) contiene il numero delle volte che lasommaè stata 
eguale a s). 


80-110: calcolo della somma del lancio di N dadi (vedere il programma 1.8). 
120: incremento dell’indice della tabella che corrisponde alla somma S. 
130: se una colonna esce dallo schermo, allora non viene tracciata. 


ESERCIZIO 4.9 

16 HOME : VTAR 22 

20 HGR : HCOLOR= 1 

36 INPUT "BATTETE LE COORDINATE 
01 UN PUNTO DELLO SCHERMO cu 
-209), C0-159) "; 4, Y 

40 IFXCQBORK > 279 DORY< 60 GR 
V > 159 THEN 39 

5A FORI=1 TO 50 

60 XA = RND C1) * 280:VYA = RND 


(1) * 160 
70 HPLOT X.Y TO $A. YA 
SO NEXT 
109 END 


Commenti: 
Variabili: 


I - contatore 
X,Y - coordinate del punto iniziale delle rette 
XA,YA - coordinate aleatorie di un punto sullo schermo. 


ESERCIZIO 4.10 


16 HGR : HCOLOR= 3 
20 FORI=1 T0 50 
36 X1 = RND (1) * 280:Vi = RNO 


(1) * 160 

40 X2 = ABS (2729 - X1):Y2 = fiBS 
(159 - YID 

56 HPLOT Mi4. Ya TO 2. Y2 

60 NEXT I 

109 END 

Commenti: 

Variabili: 


I - contatore 
X1,Y1 - coordinate aleatorie di un punto sullo schermo 


X2,Y2 - coordinate di un punto simmetrico a (X1,Y1) rispetto al centro dello 


schermo (140,80). 


Attenzione: per tracciare delle rette il cui punto di mezzo sia sul centro dello 
schermo, è sufficiente che 1 punti iniziale e finale delle rette siano simmetrici rispetto 


al centro dello schermo (linea 40). 


ESERCIZIO 4.11 


13 TEXT : HOME VTAES 
20 INPUT “"SFAZIATUFA TRA LE FIGH 
E DELLA QUAPFETTATUERA CH, 160) 
E E 
20 IFECAGORE > 154 THEN 20 
35: 
469 REM QUADPFETTATUER IN GE 


100 


29 GR: COLOR= 15 

60 FOF- = ATO 29 STEPE +1 
700 HLIN A. 39 ATX 

390 VUIN 8.39 HT % 

SO NEXT X 

1499A GET A$ 


118 FEM EGUAGFETTRTURA IN HGE 


129 HGR : HCOLOR= 7 


30 FOR = DTO Pa STEPE £ S+ 


1 
149 HPLOT KA TO «159 
15090 NEST 


169 FOR Y = A TO 159 STEPE #5 + 


i 
19 HFLOT 2.V TO 279.7 
469 NET Y 
209 END 


Commenti: 
Variabili: 


OX,Y - contatori (ascisse e ordinate) 
E - spaziatura 


60: X viene incrementato per il valore della spaziatura più 1 (perchè E può 
essere nullo). 

100: prima di tracciare la quadrettatura in alta risoluzione si deve premere 
un tasto. 


ESERCIZIO 4.12 


109 GR 

AK = 49 255C = 1 
29: 

300 REM INIZIO DEL CICLO 
390 COLOR= © 

SA 


K 


PLOT FL ci £# E, POL C1) + 


101 


600 IF PEEK € — 162573 > 152 THEN 
GR 

4 IF PEER < - 16256) > 1 
MRIT  -— 16256, 130, 129:C = C 
+ 1: IF C > 15 THENC 

S9 GOTO 46 


Commenti: 
Variabili: 


K - costante 
C - codice del colore utilizzato 


SO: visualizzazione del punto le cui coordinate sono date dalle manopole 
dei due “paddle“‘. 

60: se è premuto il tasto del paddle 0, lo schermo grafico viene pulito. 

70: se viene premuto invece il tasto 1, il programma esegue una attesa 


(WAIT -16286,128,128) prima di cambiare colore. 


ESERCIZIO 4.13 


360 REMO INIZIO DEL CICLO 

539 HPLOT X.Y 

58 GET A$ 

6690 IF R$ > = “"U" AND RK < ="? 
“ THEN HCOLOR= VAL CA$) 

00 IF A$ = "R" OR A£ = "T" OR R$ 
= "W" THNY=Y-1 

80 IFAE= "EB" OR A$ = ""V“ OR R$ 
= "C" THNY=Y+1 

99 IF A$= "C" OR RE = ""F" OR RÉ 
= ""R" THENX=X -1 

100 IF A$ = "EB" OR AT = "H" ORA 
$ = ""W” THENX = X +1 

116 IF R$ = CHR$ (13) THEN HGR 


120 GOTO 40 
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Commenti: 


Variabili: 


X,Y - coordinate del punto visualizzato 


A$ - tasto toccato dall’utente. 


ESERCIZIO 4.15 


10 


15: 


0 
30 
4 


45 : 


209 


69 


30 


HGR : HCOLOR= 2 


FEM TRACCIAMENTO DEGLI ASSI 
HPLOT A, 29 TO 279, BU 
HPLOT 140,6 TU 140, 159 


REM TRACCIAM. DELLA FUNZIONE 


HPLOT 6,859 - SIN c - 1406 / 1 
9) * 309 

FOR X = 1 TO 279 

HFLOT TO X,9A - SIN Cc - 1 
45) / 10) + 30 

NEXT X 


100 END 


Commenti: 


Variabile: 


X - contatore (ascisse del punto sullo schermo) 


60: questa linea è indispensabile per avere il primo punto già tracciato nella 
HPLOT della linea 80. 
60 e 80: ad un valore X sullo schermo corrisponde (X-140)/10 come ascissa 


della funzione. Analogamente a F(X) corrisponde 80-F(X)*30 sullo 
schermo. 
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ESERCIZIO 4.16 


19 TEXT : HOME : VIABS 

26 INPUT “AVETE GIR” DATO LA FUN 
ZIONE CSAN)? "; RÉ 

ZU IF LEFT$ CA$.1) = "S" THEN 1 
Go 

45 PEINT : PRINT "ALLORA SCRIVET 
ELA NELLA FORMA ; " 

SA PRINT : LIST 119 

EA PRINT : PRINT “"BATTETE POI ‘R 
UN #£ d 

0 END 


415 DEF O FN Yogx = Za SIN (M) + 
COS CI * MI 

420 PRINT : INPUT "ASCISSE DELL’ 
INTERVALLO DI TRACCIAMENTO D 
ELLA FUNZIONE CX, X2) ; "Xi 
He 

420 DY = 279 2 (82 - NI):AV = - 
DX * XI: IF DX € = 0 THENI 
2a 

140 PRINT - FRINT " CALCOLO VAL 
ORI ": PRINT “ESTREMI DELLA 


FIUNS IONE " 

145: 

1554 Fer CHUCOLO DEI VALORI ESTE 
EMI 


160 YI = SESFPUTS = - SES? 

17M FUR XK = 9 70 279 

ASM Vos FH FGSL + DEI 

196 IF T1 3 VTREN 71 = 

eu IF 2“ V THEN 12 = 4 

2159 NESTA 

Cel DY = 1650 2 Cr - VIO:H7 = 160 
+tT1 +07 


229 : 
224 HGR : HCOLOE= 3 


248 FEM TRACCIAMENTO DEGLI ASSI 
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OA IF RK > UO RAND fia < 250 THEN 
HPLOT Le TO Rx. 159 

260 IF RAY > = 9 AND AY < 1668 THEN 
HPLOT U, Av TO 279, AY 


CAI 
2709 REM TRACCIAM. DELLA FUNZIONE 
229 HPLOT BAY —- FN Yl1) * DY 


296 FORM = 1 TO 279 
3969 HPLOT TO M.fAY —- FN YI + 


X/ DX) * DY 
349 NEXT % 
SOA END 
Commenti: 
Variabili: 


V - variabile 

X - contatore (ascisse) 

DX - intervallo asse X 

DY - intervallo asse Y 

AX,AY - coordinate del centro degli assi sullo schermo 
X1,X2 - intervallo di analisi sull’asse X 

Y1,Y2 - valori estremi delle ordinate 


110: linea per la definizione della funzione. 

130 : calcolo dell’intervallo sull’asse delle X e dell’ascissa dell’origine. Se 
l’utente ha dato un valore di XI maggiore di X2, la funzione non 
puòessere tracciata. 

160-210: calcolo dei valori estremi (stesso metodo del programma 2.6). 

220: calcolo dell’intervallo sull’asse delle Y e dell’ordinata dell'origine. 

250-260: tracciamento degli assi se non sono fuori dello schermo. 

280-310: tracciamento dell a funzione con lo stesso metodo del programma 
precedente 4.15. 


ESERCIZIO 4.17 

10 GR 

26 X = INT € RND (1) * 30 +1 
3A FORT=G TO 39 

49 COLOR= 15 
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S9 PLOT Xv 

6A COLOR= M 

00 IFY- 153 = 4 THEN PLOT. 
Y-i 

SA NEXT Y 

390 GOTO 16 


Commenti: 

Variabili: 

X,Y - coordinate della palla 

20: calcolo aleatorio dell’ascisse della palla. 

Attenzione: per dare l'impressione del movimento, la palla viene visualizzata una 
linea più in basso della sua posizione poi viene cancellata. Il processo continua sino 


a che la palla raggiunge il fondo dello schermo; poi la palla ritorna a cadere 
dall'alto. 


ESERCIZIO 4.18 


160 TEST : HOME © VIABO 
29 INPUT “COLORE DI FONDO c6-15) 


: NiCF 
30 INPUT "COLORE DELLA EANDH C0- 
15) : CE 
4# INPUT "LARGHEZZA DELLA BANDA 
(ISIS) ("LB 


SG IF CE < GR CE 35 RL < 
Di OR CF > 15 OR LE < GORLE 
> 39 THEN 20 

54 REM DISEGNO DEL FONDI 

#9 GR : COLOR= CF 

90 FORI=40G TO 39 

39 HUING23 ATI 

160 NESTI 

195: 

116 REM INIZIÙ DEL GICLO 

120 FORX = 4 TO 59 


106 


349 COLOK= CE 
148. HLIN G,29 HAT Xx +18- dB+ € 
; + LE > 39) 
159 COLOR= CF 
169 HLIN 8.39 AT & 
178 NEST X 
159 GOTO0 116 


Commenti: 
Variabili: 


I - contatore 

X - contatore (ascisse) 

CF - colore di fondo 

CB - colore della banda 
LB - larghezza della banda 


130-140: tracciamento di una nuova linea, nel colore della banda, sotto la 
banda. 
150-160: cancellazione della prima linea della banda. 


ESERCIZIO 4.19 


16 TEXT : HOME : VTABS 
20 INPUT "ALTEZZA DEL RETTANGOLO 
(1-130) : "iH 
30 IFH< 1 0RH 3 130 THEN 20 
40 INPUT "LARGHEZZA DEL RETTANGO 
LO C1-2009) : ";L 
sO IFL<XK10RL > 296 THEN 46 


60 REM INIZIALIZZAZIONE 
9 HGR 
Sd x = 0:YV = RAD C1) * (156 - H) 


49 DX = RND (DD * 3+ 5:DY = 4 — 
RND (1) * 2 

5: 

160 REM INIZIO DEL CICLO 
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118 IFX+DX+L 3 2729 0RX+D 
% < 9 THEN DX = - DX 

1259 IFY+ DY+H3 159 0RY+D 
Y< A THEN DY = - DY 


139 HCOLOK= 

140 HPLOT RAY TO+LYTdRt 
LY+HTOA,Y+tHTO0 XV 

4509 HCOLOR= 3 

1609 X = M+ DX:YV = Yi DY 

170 HPLOT X,yVTOM + LY TON + 
Lt+tHTO0XH.YV+tHTOXy 

180 GOTO 116 


Commenti: 
Variabili: 
X,Y - coordinate dell’angolo alto sinistro del rettangolo 


DX,DY - spostamento orizzontale e verticale 
H,L - altezza e larghezza del rettangolo 


80: il rettangolo parte dal bordo sinistro dello schermo da una altezza 
presa a caso. 
90: lo spostamento orizzontale è preso aleatoriamente tra .5 e 3.5; quello 


verticale è compreso invece tra 2 e 4. 

110-120: se uno dei bordi del rettangolo esce dallo schermo, allora si effettua un 
cambiamento di segno dello spostamento corrispondente. 

160: calcolo delle nuove coordinate. 


ESERCIZIO 5.1 


10 TEXT : HOME : VTIRES 

20 INPUT “QUALE LIVELLO DI DIFFI 
COLTA” (0-5) ? "N 

30 GR 

409 COLOR= 7? 

59 FORI=1 T0 406+ 40 N 

69 X = RND €1) * 30 + ?:Y= RNMD 
(1) * 40 

#0 PLOT X.Y 

SO NEXTI 
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1904 
114 
139 


= 9:Y= RND (1) * 206 + 18 
COLOP= 15: PLOT X.Y 

WAIT - 162897, 128 

REMO INIZIO DEL GIULU 


1450 DY = @: IF PDL €03) > 1004 AND 


140 


VP < 39 THEN DY = 1 

IF FDL (0) < 20 ANDY 3 = 
1 THEN DY = DY -1 

IF SCRNCK + LY + DW<d 
U THEN SU 

COLOR= : PLOT 44 


170 X=K+t1:4=VYVt DI 


COLOR= 15: PLOT X.Y 

FOR I = 1 TO 100: NEXTI 
IF OX < 39 THEN 139 

REM VINCITA 

FOR 1 = 1 TO SUB: NEXT 1 


4 N= Mt 1: IFN< 6 THEN 38 


FLASH : PRINT “TROPPO FORTE 
PER ME ----" 

NORMAL : END 

REM PERDITA 
FORI=1T0£: PRINT CHR$ 
CP): NEST I 


264 FOR I = 1 TO sO: NEXT I 
S:4 IFNZ A THENN=N -1 
546 GOTO = 

Commenti: 

Variabili: 


I - contatore 


XY - 


coordinate del punto 


DY - spostamento verticale 
N - livello di difficoltà 


40-80: lo schermo viene riempito a caso di ostacoli tra la colonna 7 e la 37. Il 
numero di ostacoli dipende dal livello di difficoltà N. 
90-100: posizionamento iniziale a caso del punto sulla prima colonna dello 


schermo. 
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110: attesa che sia premuto il tasto del paddle 0. 


130-140: determinazione dello spostamento verticale. 
150: se il punto incontra un ostacolo, allora il programma salta alla linea 
500. 


190,220,520: cicli d'attesa. 


Attenzione: se il punto riesce ad arrivare al bordo destro dello schermo, allora il 
livello di difficoltà viene incrementato, diversamente se il punto incontra un 
ostacolo il livello viene diminuito. 


ESERCIZIO 5.2 


10900 DIM 152. I, NEC) 

20 HOME “TRES 

300 INFUT "MOME DEL FRIMO GIOCATO 
RE: "N£CD) 

35 FFINT 

4 TIMPUT "NOME DEL SECONDO GINCA 
TORE :. ";N£C1) 

50 C=89 

SO: 

6A REM INIZIO DEL GIOCO 

CA GOSUE 1000: REM VISUALICSAZIO 
NE DELLA TARELLA 

eo FfF=C- 2% INT CC? 2) 

90 PEINT " GIOCA ":N€F>% 

160 INPUT “LINEA. COLOMNA>)? ".LI 
a CO 

1108 IFCOSCHAOrRcO: FP IRLlIOC 
G 0F LI > 2 THEN 100 

4290 IF TULCO: > 6 THEN 190 

139 KLLCOO = F+t1 

125: 

149 PEM VINCITA ? 

1509 FORI=OTO0?2 

150 IF KLI.ID< >F+10THEN 1 

an 

NEXT I 

GOTO SOA: REM VINCITA ? 


papà pa pa 
IL DO LO I 
Sp Ia 


FORI=QA 102 


110 


FGOS 


1900 
1019 
1ASM 


1021 
1050 
1030 
1950 
106 


1979 


IFII.LCDY © DFF +1 THEN 2 
SM 
NEMT I 


GOTO 5600: REM VINCITA ? 


FORI=AT02 


IF_JCI.ID < 3 F+ 1 THEN 2° 
U 

NEST I 

GOTO SOG: REM VINCITA 7? 


FORI=SATO?2 
IF JC1.2 = 13 4 > F + 1 THEN 


210 
NHEST I 


268 GOTO SOA: REM VINCITA ? 


REMO ALTRO GIOCATORE 
Cs C+ 1: IC 93 THEN 6A 


GOSUE 1008 
REM 

PRINT : PRINT" PAPTITA MIL 
LA!" 


END 


REMO VINCITA 


GNSUE 1000 
PRINT | PRINT "BRAVO ":N$F) 
i" HAI VINTO! * 


END 

REM SOTTOPROGRAMMA 

PRINT : PRINT 

PRINT" ";: PRINT" A 
1 2" 

PRINT 

FORI=9T12 

PRINT" "1" 


FORI=Q 702 
IF JCI.J} = A THEN PRINT " 


IF 3CI.J3 = 1 THEN PRINT" 


VALLE 
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19290 IFPI. Ii = ? THEN FRINT" 
0; 

IBSOOONEST I 

LIRA PRINT PRINT 

1119 NESTI 

11268 PEINT PRINT 

115 RETURN 


Commenti: 
Variabili: 


I.J - contatori 

C - numero di mosse fatte 

F - numero della persona giocante 

CO,LI - numeri di colonna e di linea della giocata 


J(2,2) - tabella che rappresenta la scacchiera (0:posizione libera, l: posizione 
occupata dal primo giocatore, 2: posizione occupata dal secondo giocatore). 


N$(1) - contiene i nomi dei giocatori. 


80: F vale 0 se il numero di mosse (C) è pari, vale 1 se è dispari. 

120: controllo se la posizione è già occupata. 

150-170: controllo se con la mossa appena fatta il giocatore ottiene un ‘‘filetto”’ 
sulla linea. 

190-210: stesso controllo sulla colonna. 

230-300: stesso controllo per le due diagonali. 


Attenzione: per determinare se un giocatore ha vinto, è sufficiente controllare la 
colonna e la linea su cui ha appena giocato e le due diagonali. La vincita si ha se in 
uno di questi casi si trova Il numero del giocatore ripetuto tre volte in fila (‘*filetto’’). 


ESERCIZIO 5.3 


19 READ M:N= RND (1) «M+1 

20. FOR I = 1 TO N: READ M$: NEXT 
I 

36 T$ = LEFT$ ("--------_---- " 
, LEN CM$)) 
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49 C= 50 
SY AL$ = "ABCDEFGHI.TELMMOFORSTLUVY 


XyZ" 
ET$ =" 


REM ELABORAZIONE 
HOME : VTRB 5 
PRINT "POTETE PROVARE ":5 - C 
i" VOLTE" 
PRINT : PRINT T£ 
PRINT : PRINT "LETTERE GIA” 
PROVATE : * 
PRINT AL$ 
PRINT ET$ 


PRINT : INPUT "GUALE LETTERA 
?25;$ 

FOR I=1 TO 26 

IF MID$ cRL$. I. 12 = L$ THEN 
126 

NEXT I 

GOTO 120 


REM LETTERE DELL'ALFABETO 
ET$ = MID$ CET$,1,I - 1) +" 
*" + MID$ CET$.I +10) 
F= 0: FORI=1T0 LEN (M$) 


IF MID$ <M$, I, 1) = L£ THEN 
F= 1:7$ = MID$ CT$.1.1-1 
> + L$ + MID$ CT$£.I +1) 
MEXT I 


IF T$ = M$ THEN 504 
IFF=@THENC=C+1 
IF C< 6 THEN 66 

REM PERDITA 


PRINT : PRINT 
PRINT : PRINT "AVETE PERSO. 
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280 GOT 520 


389 REM VINCITA 
519 PRINT : PRINT "COMPLIMENTI fi 
VETE TROVATO LA PAROLA! " 
215 PRINT : PRINT 
Sed PRINT : PRINT "LA PAROLA ERA 
$ 4; M$; 0 00 
1939 END 


999 DATA 15 

1098 DATA PRRULA, ALTRO. BRAVO, SIC 
COME, APPLE 

1916 DATA TAVOLO. LIBRO, DISCO, STE 
LLA, WUASAR 

1020 DATA CASTAGNO, MEDUSA, DISPLA 
1, SOFFITTO, APPLESOFT 


Commenti: 
Variabili: 


I - contatore 

M - numero di parole registrate nella DATA 

N - variabile 

C - numero di tentativi errati 

F - indica se la lettera è contenuta nella parola (0: non è contenuta, 1: è contenuta) 


M$ - parola da cercare 
T$ - contiene tanti trattini quante sono le lettere della parola M$. I trattini vengono 
sostituiti con le lettere esatte quando sono indovinate 


ALS$ - lettere dell’alfabeto 


ET$ - questa stringa viene inizialmente riempita con 26 spazi. Successivamente gli 
spazi sono sostituiti da asterischi quando la lettera corrispondente viene provata. 
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140-170: controllo se il carattere L$ è una lettera dell’alfabeto. Se lo è viene 
ricordata la sua posizione con il valore di I e il programma prosegue 
alla linea 180. 

200-220: sostituzione dei trattini di T$ con la lettera indovinata. 

230: controllo se è stata indovinata tutta la parola. 


ESERCIZIO 5.4 


16 HOME : VTAB S 
28 PRINT "PENSATE UN NUMERO TRA 
G E 999999. ID LO SCOPRIRO”" 


34 PRINT : PRINT 

40 EI = U:BS = 10000090 :C = O 

35 : 

509 REM INIZIO DEL CICLO 

6A E = INT (BS + BID 2 2) 

790 PRINT “"PROVIAMO CONO"; E;" ?" 

59 INPUT "E” TROPPO ALTO, TROPPO 
BASSO 0 GIUSTO CA.B.G) ? ":; 


R$ 

WdC=C+1 

190 IF R$ = “A"“ THEN BS = E: GOTO 
SA 

1106 IF R$ = "B* THEN BI = E: GOTO 
SA 

120 IF R$ Co > "6" THEN 90 


125: 

1359 REM ESATTO! 

140 FRINT : PRINT "EUREKA' HO IN 
DOVINATO CON"; C;" TENTATIVI 


159 END 


Commenti: 
Variabili: 
E - numero tentativo di prova 


C - numero di prove fatte 
BI - limite inferiore 
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BS - limite superiore 
R$ - risposta dell’utente 


120: se l’utente non da una delle tre risposte previste, allora gli viene ripetuta 
la domanda. 


ESERCIZIO 5.5 


169 DIM N49) 
20 HOME : VTRE 19 
25 : 


+0 REM RIEMPIMENTO DELLA TABELLA 


44 FORI 
50 N“1) = 
€06 NEXTI 
65: 
70 REM SCELTA DEI NUMERI 
80 FOR I = 49 TO 44 STEP - 1 
SA R= INT è RND (Da Dt+i 
1913 PRINT NCR); " ":; 
1419 IFR=1I THEN 158 
120 FORJI=R+ 17101 

) - 


159 NCI - 1 NCJ) 
140 NEXT J 

1509 NEXT I 

164 PRINT : PRINT 
165 : 


1709 REM NUMERO COMPLEMENTARE 
150 R_= INT C RND (1) * 45) +1 
194 PRINT NCR) 

200 END 


Commenti: 

Variabili: 

I,J - contatori 

R - numero a caso compreso tra l e il numero di elementi di N(49) 
N(49) - tabella 


110-140: rimonta degli elementi seguenti della tabella per togliere il numero 
appena “uscito” (vedere il programma 2.8). 


116 


ESERCIZIO 5.6 


10 


DIM COCS1). CECI). P$C3) 


eu P$09) = “PICCHE":P$CD) = 


114 
120 
154 
140 
155 
160 


GUARDI" 
HOME : VITAE S 


"CUOR 


=" 


I":P$(21 = “FIORI*:P$CI 


-_ 


PRINT "ATTENDETE CHE MESCULO 


LE CARTE" 


FOR I = 9.70 51 
CCI) = I 
NEXT I 


REM MESCOLA DELLE CARTE 
FOR 1 = 51 (UG STEP - 


A R= INT CO RND “13 * CI 


CECI) = COCR) 

IFR= I THEN 164 
FURI=RAt1T0I 
LOCI — 1) = CUI) 
NEST J 

NEXT I 


LAST 


160: 


178 
164 
190 


2a 


REM VISUALIZZAZIONE 
FORI = A TO 51 


1 
+ 13) 


CE = CBCID - INT (CECI) 2 12 


) * 13 
IF CE < 19 THEN PRINT 


IF CB = 16 THEN PRINT 


IF CE = 11 THEN PRINT 


band 
n » 
L'egpo 
DO 

LI) 


42 THEN PRINT 


PRINT" DI "; 
vo= INT (CECI 2 13) 
PRINT P$CW), 

NEXT I 

END 


CE + 


"FANT 


"DONN 


“ RE"; 
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Commenti: 
Variabili: 


I,J - contatori 
R - numero a caso compreso tra 0 e il numero di elementi di CO(S1) 


V - seme della carta da visualizzare 

CB - numero della carta da visualizzare 
CO(51) - tabella delle carte ordinate 
CB(51) - tabella delle carte mescolate 
P$(3) - nomi dei quattro semi 


80-160: mescola delle carte riempiendo aleatoriamente la seconda tabella a 
partire dalla prima (vedere i programmi 2.8 e 3.11). 

190: calcolo del numero della carta (0 per l’asso, 1 per il 2, ecc.) cioè il valore 
di CB(I) modulo 13. 

250: calcolo del seme della carta. 


ESERCIZIO 5.7 


16 REM NUMERI PRIMI 

20 HOME ‘| VIRBS 

36 PRINT "2,3.5, 0"; 

49 N= 9 

58 REM INIZIO DEL CICLO 

6A FORI =3 TO SUR CN) STEP 2 
70 IFN= INT NZ DD * I THEN 


6 NEXTI 

90 PRINT *,";N; 
AGG N=N+2 
116 GOTO 60 


Commenti: 
Variabili: 


I - contatore 
N - numero da provare se è primo 


118 


70: controllo se N è divisibile per I; se si allora non è primo ed il program- 
ma prosegue alla linea 100 con il numero dispari successivo. 
90: viene posta una virgola tra i numeri primi da visualizzare. 


ESERCIZIO 5.8 


106 HOME 

REM VISURLIZZ. DEL MENU” E SC 
ELTA 

HTAB 18: PRINT “MENU”" 

VTAB S: PRINT "1 - ADDIZIONE" 


3 


PRINT "2 
PRINT "3 
PRINT "4 
PRINT "5 


SOTTRAZIONE " 
MOLTIPLICAZIONE" 
DIVISIONE" 

FINE DEL PROGEAMMA 


$IE$ sE 


& 


VTHB 12: INPUT "QUALE OPZIONE 
(1-5)? ";R 
1606 A = INT MH: IITARC1URA 5 
5 THEN 9A 
1109 IF A = 5 THEN END 


120 REM INGRESSO DEI DATI 
130 HOME : VIRBES 

1448 INPUT “PRIMO DATO : "Ni 
159 INPUT "SECONDO DATO: ":N2 
169 PRINT : PRINT 


169 : 

1765 REM DIRAMAZIONE E VISUALIZZA 
ZIONE 

186 ON A GOSUB 1060, 2000, 3000. 46 
60 

190 IF 0$ < > "" THEN PRINT N1 
j LU] “; O$: 11) “; N2; CLI - 4, R 


269 PRINT : PRINT : PRINT "BRTTE 
RE ‘RETURN’ PER CONTINUARE " 

219 GET fI$: GOTO 16 

215 : 

1950 REM HDDIZIONE 

1010 R = Ni + Mo 

1620 0$ = "+" 


1929 RETURN 

1035 : 

2906 REM SOTTRAZIONE 
2010 R = NI - NZ 


2020 08 = "-" 
2030 RETURN 
2035: 


3909 REM MOLTIPLICAZIONE 
3010 R = NI + N2 


30209 0$ = "" 
3030 RETURN 
2039 


4869 REM DIVISIONE 
4605 IF N2 = @ THEN PRINT "DIVI 


SIONE PER @ !":0$ = "": GOTO 
4039 
4010 R = Ni / N2 
4020 0$ = ":" 


4039 RETURN 


Commenti: 

Variabili: 

A - opzione 

NI - primo operando 
N? - secondo operando 
R - risultato 


O$ - segno dell’operazione 


180: se A=1 allora si passa all’addizione alla linea 1000; se A=2 allora si 
passa alla sottrazione alla linea 2000; ecc. 


190: punto di ritorno da un sottoprogramma; se 0$ <> “ * allora viene 
visualizzato il risultato (salvo il caso di divisione per zero). 


200-210: ritorno al menù dopo che l’utente ha avuto la risposta. 
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ESERCIZIO 6.1 


Metodo 1 


14 D$ = CHR$ 4) 

298 HOME 

30 PRINT "EARTTETE LE PAROLE DA FK 
EGISTRARE" 

35 PRINT "-BATTERE “STOP” PER TE 
RMINARE-" 

49 FOKE 34.3 

SA PRINT D$: "OPEN PAROLE" 

60 VIAR E 

69 : 

70 REM ELABORAZIONE 

50 INPUT P$ 

SA FRINT D$; "WRITE PAROLE" 

100 PRINT P$ 

110 PRINT D$ 

120 IF P$< > “STOP" THEN 356 

125 . 

135 REM FINE DEL PROGRAMMA 

1465 PRINT D$; "CLOSE" 

14509 TEXT : END 


Commenti: 
Variabili: 


D$ - contiene il comando ’Control-D’ 
P$ - parola da registrare 


90-100: scrittura della parola nel file. 
110: indica al DOS che le operazioni con il file sono momentaneamente 
sospese e perciò la PRINT successiva visualizza sullo schermo. 


Metodo 2 


10 DIM P£C260) 

20 D$ = CHR$ (4) 

39. HOME l 

40 FRINT “BATTETE LE PAROLE DA R 
EGISTRARE" 
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45 PRINT "-BATTERE “STOP” PER TE 
RMINARE-" 

99 POKE 34.2 

69 TRE 6 


79 REM ELABORAZIONE 

809 FORI =1 TO 268 

98 INFUT P$CI) 

169 IF P$CI) = “STOP" THEN 1509 

1169 NEXT I 

120 I = 200 

150 REM REGISTRAZIONE DELLE PAR 
OLE 

160 PRINT D$; "OPEN PAROLE" 

1709 PRINT D$; "WRITE PAROLE" 

1869 FORJ=17T01I 

1490 PRINT P$CJ) 

200 NERST I 

219 PRINT D$: "CLOSE" 

224 TEXT : END 


Commenti: 
Variabili: 


I,J - contatori 
D$ - contiene il comando ’Control-D' 


P$(200) - tabella delle parole da registrare nel file. 


ESERCIZIO 6.2 


Metodo 1 


10 D$ = CHR$ (45 
29 HOME : VTRBS 
30 PRINT D$; "OFEN PAROLE" 
48 PRINT D$: "READ PAROLE" 


SH REM LETTURA E VISUALIZZAZIONE 


GA INPUT Fé$ 

‘8 PRINT P$ 

SAGUIFPE£ > "STOP" THEN EA 
Sa: 

SA PRINT D$; “CLOSE” 

169 END 


Metodo 2 


14° DIM PECZHO) 

NA D$ = CHR$ (4) 

240 HOME : VYTABO9 

409 PRINT D$: "OFEN PAROLE" 
SY FRINT D$: "KERD PAROLE" 


60 REM ELREGRAZIONE 

#9 FOR 1=1 TO 206 

30 INPUT P$C1) 

96 IF P£(13 = "STOP" THEN 1569 
194 MEXT I 

110 I = 200 

1450 REM VISUALIZZAZIONE 

169 PRINT D$; "CLOSE" 

179 FURI=1TO01 


189 PRINT P$(J) 
1994 NEST J 


Commenti: 

Variabili: 

J - contatore 

I - numero di parole nel file 


D$ - contiene il comando *Control-D° 


P$(200) - tabella delle parole lette dal file. 


123 


ESERCIZIO 6.3 


16 D$ = CHR$ c4) 
ZIA MT& = D£ + "WFITE IMBIRIZZI. KE" 


300 PRINT DI; "OPEN INDIFIZZI. L95" 
dd Ho= bi 
0 MEM INGRESSI DI Uli MOMIMATI*LI 


6A HOME © VIABS 

HO IRPUTO “"COGROME "NÉ 

A TIMPUTO “HOME : iP£ 

2340 IRPRIT "INDIEISZ:U: ". R$ 

1AGG FOO LEN CH$£: + LEN CPEI + LEN 
CR$£1- > Sf THEN PRINT “ROMIN 
HT[VO TEUPPO LUNGO! “< PRINT 
‘PRINT: GOTO PA 

Aitui HOME - VIHE S 

15 PRINT M$i" ";P$ 

A: PWINI : PRINT HE 

140 PRINT ‘ INPUT “CONFERMI €528 
12 ile 

159 IF MIDI “R$. 1.13 = "NH" THEN 


Sti 


I REM REGISTRAZIONE 
AN=MIYt 1 

199 PRINT NTER 

199 PRINT N$: PRINT P$: PRINT R$ 


PRINT D$ 


fo 
o 
ona 


REM ALTRO NOMINATIVO 

PRINT : PRINT 

INPUT "VUOTI DRRE UN ALTRO NO 
MINATIVO «SH? "; RÉ 

4 IF LEFT$ CR$.1) = "5" THEM 
SH 


pe i i 


”- 
end 


2504 REM CHIUSURA DEL FILE 
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260 PRINT NT£: 9 

206 PRINT M 

284 PRINT D$: "CLOSE" 
RA END 


Commenti: 
Variabili: 


N - numero delle persone registrate 

R$ - variabile 

D$ - contiene il comando ’Control-D° 

WT$ - stringa contenente il comando di scrittura nel file 
N$,P$,A$ - cognome, nome e indirizzo della persona da registrare 


100: controllo della lunghezza dei dati da registrare. 
110-150: verifica dell’esattezza dei dati. 
260-280: registrazione del nominativo della persona. 


ESERCIZIO 6.4 


10 D$ = CHR$ c4) 
2 RD$ = D$ + “READ INDIRIZZI. R" 
309 PRINT Ds$; "OPEN INDIRIZZI. L95" 


40 PRINT PD$; 0 

50 INPUT N 

€60 PRINT D$ 

69: 

70 REM ELABORAZIONE 

29 HOME : VIABS 

3090 INPUT "COGNOME O NUMERO DI RE 
GISTRAZIONE? ";F$ 

166 FRINT : PRINT 

119 F = VAL <F£: IF F = G THEN 
SAU 

120 IFFXGBORFÀ> N THEN PEINT 
"IMPOSSIBILE !": PRINT : PRINT 
: GUTO SG 
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I ua o 
SS A Ra 


AR 
«N 
in 


N 


(SN 
i 


2 
Acacia) 


A 
t, LI 
ace) 


ST: mq 
PI pa 
ace RI ace Ice) 


1905 
4010 
1028 
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KEM RICERCH FER MUMERI LI FE 
GISTREZIONE 

PRINT RDS: F 

INPUT N$, P£. H$ 

PRINT D$ 

GUSUB 1600: REM VISUALIZZAZI 
DNE 

GUTO #96: FEM ALTRO NOMINATI 
VO 


REM RICERCH PER COGNOME 
FORI =1T0N 

PRINT RDS; 1 

INPUT H$.F$. A$ 

IF ME < > F$ THEN GOTU ÉMa 


REM TROVATO! 

PRINT D$: GOSUE 100% 

IHFUT “CONFERMI (SANI? "; R$ 
IF LEFT$ CR$. 13 = "S" THEN 
CI 

MEXT I 

PRINT D$ 

PRINT : PRINT "QUESTO NOMINA 


TIVO NON E° PRESENTE" 


3 REM ALTEO NOMINATIVO 


PRINT : PRINT 

INPLIT "VUOI CERCARE UN ALTRO 
NOMINATIVO €5/N3? ": R$ 

IF LEFT$ (R$, 1) = "S" THEN 


SO 


REM FINE 


PRINT D$: "CLOSE" 
END 


REM SOTTOPROGRAMMA DI 
REM VISUALIZZAZIONE 
HOME : VTAB 5 

PRINT N$;" “:P$ 


1636 PRINT : PRINT R$ 
1640 VTAB 12 
1659 RETURN 


Commenti: 
Variabili: 


I - contatore 

N - numero delle persone nel file 

F - numero di registrazione 

R$ - variabile 

D$ - contiene il comando ’Control-D' 

RD$ - contiene il comando di lettura dal file 
F$ - nominativo da cercare 

N$,P$,A$ - cognome, nome e indirizzo 


40-60: lettura del numero di persone nel file. 

110: se F=0 vuol dire che l’operatore ha battuto delle lettere (0 non può 
essere un numero di registrazione consentito) per cui la ricerca viene 
fatta per cognome. 

560-590: conferma se la persona trovata è quella cercata (infatti più persone 
possono avere lo stesso cognome). 
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nuovidea 


Il calcolatore 
e le comunicazioni 


TRA SMISSIONE 
Giuseppe Saocardi DATI 


dispositivi standard dispositivi standard 
e protocolli . “Protocolli 


Un volume che, senza 
presupporre conoscenze 
specifiche del lettore, lo 
mette al corrente Giuseppe Saccardi 
sull’attualità e sulle 
prospettive della 
trasmissione elettronica delle 
informazioni. 

Descrive | principali 
dispositivi attualmente 
utilizzati; chiarisce le 
normative e gli standard 
internazionali; esamina i 
protocolli che permettono di 
trasferire informazioni tra 
calcolatori e terminali; 
analizza caratteristiche e 
funzioni di un moderno 
PABX. 

Un libro che traduce in 
tecnologia, ia profezia 
letteraria di Orwell e del suo 
‘‘1984”. 
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Cause e effetti 
di una rivoluzione tecnologica 


Roland Dubois 
Capire i Microprocessori 


Dal 1972, loro data di 
nascita, ai giorni nostri: la 
fantastica rivoluzione 
determinata dall’invenzione 
del microprocessore e del 
microcalcolatore. 

Un fibro che spiega, in forma 
chiara e dettagliata, la 
funzione del 
microprocessore, delle 
memorie ROM e RAM, delle 
interfacce... 

Con numerosi schemi di 
collegamento, esempi di 
programmi, esauriente 
presentazione dei principali 
microprocessori sul mercato. 
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ll BASIC è ormai diventato un linguaggio internazionale parlato 
da tutti gli utenti e possessori di personal computer. Molte volte 
però non è sufficiente conoscerlo, saperlo parlare, occorre an- 
che utilizzarlo correttamente nella stesura dei programmi. 
Questo libro è un validissimo aiuto per tutti quelli che si accingo- 
no a tradurre in “istruzioni” problemi di matematica, archiviazio- 
ne di dati, ricerche di nominativi, disegno di grafici, di istogrammi 
e animazione di figure. 

Tutti gli esempi proposti sono presentati con molta chiarezza e di 
molti viene anche dato il diagramma a blocchi.. 

Sebbene il BASIC scelto sia l’Applesoft, il libro è utilizzabile 
anche per altri calcolatori. 
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